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IDENTIFICATION 
PRODUCT CODE: AC-79990-MC 
PRODUCT NAME: CERHADO RH70 CTRLA DIAG 
PRODUCT DATE: MARCH 1978 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS wy IS SUBJECT TO owe WITHOUT 

NOTICE AND SHOULD NOT BE CONSTRUED A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NI SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 


NO oh ota La PER IS ASSUMED FOR THE USE OR RELIABIL 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGI 
APFILIATED COMPANIES. 


COPYRIGHT (C) 1975, 1978 BY DIGITAL EQUIPMENT CORPORATION 
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THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


CERMHADO MACY11 30:i04%6> 2i-DEC-77 


CERHAC.P11 


io 


95 


Ounoww 
oOwonT 


Ci-DEC-77 12:48 


13:06 


- 


COl 


PAGE 3 


ABSTRACT 
age PROGRAM gs THE RH70 IN THE gle SUBSYSTEM. 


OnOER’ feSY. T¥"CAN OEP OUPERAPPSOR RHoos CONNECTED ON THE 


UBS YSTEn. HL THOUGH Me, 3 PERIPHERAL CONNEC TED 1S USeD, THE 
PERTPHE AL IS NOT TESTED BY THIS PROGRA 


REQUIREMENTS 
EQUIPMENT 


PDP11/70 COMPUTER WITH CONSOLE TELETYPE, AND ANY ONE OF THE 
RH70 PERIPHERALS, (FOR EXAMPLE REON , RSO3 RSOY TUE) . 
THE PERIPHERAL MUST C ET 0 


THE RPO4Y,RSO3,RSO4 MUST HAVE A SCRATCH BACK: ON IT. 
THE TU MUST HAVE A SCRATCH TAPE. 


STORAGE 
THIS PROGRAM HAS 16K WORDS OF MEMORY. 
PRELIMINARY PROGRAMS 


ALL PDP11/70_ CPU DIAGNOSTICS MUST BE RUN ERROR FREE BEFORE 
THIS DIAGNOSTIC IS RUN 


LOADING PROCEDURE 
USE STANDARD LOADING PROCEDURES FOR .BIN TAPES. 
STARTING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 


SWITCH USE 

S HALT ON ERROR 

14 LOOP_ON TEST 

13 INHIBIT poe TYPEOUTS 

11 INHIBIT ITERATIONS 

10 BELL ON ERR 

3 LOOP ON ERROR 

8 LOOP ON TEST IN SWR<7:0> 
STARTING ADDRESS 
START oT ive be on ~ con STANDARD RH70. 
START ABBR Eee oon NONSTAN arp RH70. 
STARTING ADDRESS 16 SHOULD” BE USED TO TEST 


ANY ONE RH INSTEAD OF ALL THE RH GIVEN BY 200 START 
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PROGRAM AND/OR CPERATOR ACTION 
BEFORE STARTING THE PROGRAM, MAKE SURE THAT THE MAGNETIC 


_ MEDIUM IS PROPERLY POSITIONED: 
1.) TUG - 


MAGTAPE MUST BE AT LOAD POINT. 
2.) RP <= HEADS MUST BE IN HOME POSITION. 


a STAI HG FERS PLS ACER TPN NS Sa HOSS, HL Pea eeRAC"ERIMENS 
CONNECTED TO THE RH70. 

OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 

SEE SECTION 4.1 

SUB-ROUTINE ABSTRACTS 

SEE SECTION 9 “SUBROUTINES” 

ERRORS 

ERROR HALTS AND DESCRIPTION 

ON DETECTION OF AN ERROR THE PROGRAM WILL PRINT ALL RELEVENT 


INFORMATION AND THEN PROCEDE ACCORDING TO THE SWITCH SETTINGS 
GIVEN IN 4.1. IF ALL SWITCHES ARE DOWN THE PROGRAM WILL CONTINUE. 
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2 COPYRIGHT (C) 1975, 1977 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MASS. 01754 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-ii MAINDEC S/SMAC 
PACKAGE (MAINDEC-11-DZQAC-AY). 


SHKESHSSSKAS FRAKES KE SESLAS SEF SELSLAASS FS SSFSEFSESRE FS FSS LEASE SSE SS 


OPERATIONAL SWITCh SETTINGS 
FESEESEE SEES SESSLER EE EEE ESSEEESEE ESSE REESE SSE ESS EEESE SES ESE DEES 


14 
SWITCH LE 


LT ON 
OP_ON T 
INHIBIT ERROR TYPEOUTS 
HIBIT ITERATIONS 
L ON ERROR 


eee ed 
ONOWOOr-WtUWT 
wo 
m™ 
sg 


OOP ON TEST IN SWR<7:0> 
STOP FURTHER COMPARES IF SWO@ IS LOW 
TYPE ALL REG. WITH ERROR IF SWE LOW 


KEKEKHHAEREAAKEALELLAA SLA LSS LS SHS LEE FERALAS LAELSRELSSELFFRE FLEE SS 


BASIC DEFINITIONS 
KEKEREEE EERE EEE REEL SEER EEE EAE ESE SE ERAS LEE SR ERE LES ERR SESE SES SES 


e293 INITIAL ADDRESS OF THE STACK POINTER ##* 1000 ##* 
40 MISCELLANEOUS DEFINITIONS 

46 GENERAL PURPOSE REGISTER DEFINITIONS 

58 PRIORITY LEVEL DEFINITIONS 

68 “SWITCH REGISTER” SWITCH DEFINITICNS 

S36 DATA BIT DEFINITIONS (BITOO TO BIT1S: 

1e4 BASIC “CPU” TRAP VECTOR ADDRESSES 


GO1l 
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222 
ee3 SEREREEERREEEEEREREEEEEEEEE EERE SEEE EES SSEES SESE EFAS SSE SSSSSSSESSSSES 
ees i139 TRAP CATCHER 
ese EXEEERESEREREREEASELESEEEEEESSES SSE > SEASEESE SSS SSSSFRASHSSE ESSE SS 
142 ALL UNUSED LOCATIONS FROM 4 - 776 ge bed ly "_+2,HALT” 


PR QUENCE TO CATCH ILLEGAL TRAPS AND INTERR 
LOCATION O CONTAINS O CATCH IMPROPERLY LOADED VECTORS 


KEKKKHEAAAAKSREAHELALALASESL SSL SLALALLSSFRESLELEELAEFLFSHSSF PASS 


furururururufrufuru 
JG) GWG) Gufururu 
U1.£ Gitue-OWWD~) 


146 STARTING ADDRESS(ES) 
FESKEKRERESSEREEEERELES SEES ESSE ES RERA SSA SRSRESAEAELE EES LAE SSH SSS SS 
1S2 STARTING ADDRESS 200 FOR NORMAL STARTS 

a) THIS WILL TEST ALL RPO4Y’S ON THE SYSTEM A SINGLE DRIVE AT & TIME 

34 STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 

240 

241 EEKEEEEEEEEERE EERE EERE EERERERE REE ESE ESSE SS SEEESESELA EFAS SERS SESE EE 

242 160 MEMORY MANAGEMENT DEFINITIONS 

Suu KEKKEREREESEEREREKRELE EERE REESE EEE RELA EEE RSE REEL EEE ELE SESE EE EEE EFF 

ur 162 KT11 VECTOR ADDRESS 

std 166 KT11 STATUS REGISTER ADDRESSES 

Seq 173 KERNEL “I” PAGE DESCRIPTOR REGISTERS 

ses 184 KERNEL “I” PAGE ADDRESS REGISTERS 

253 RHEKKEREKEREREREEE EER ER EEE EERE ERE EE REESE ERE ERLE ELE RE EEF EE SEE ESS 

eS4 199 COMMON TAGS 

ep EREKKKEERRERERES ESR EE RES SEEKERS REFEREED ESSE LSE ESE S ESSE HEESES 
Zz 201 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


25 
Soe USED IN THE PROGRAM 
es3 


HO 1 
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eri CERHADO 

BA SESFSESL SESS RKSRESSSRSE KAS SHALE HASS SS SHS SEHS THE FSFFFSASLFSLSFSHSHSSS 
263 ese ERROR POINTER TABLE 

ee Neen eee En eee re TRGRDROSUSRERRORERRORERGORRARERSRSEORSOESEEONSE 

S 
26E 2s4 THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCU 
ia THE INE ORATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
4 LOCATION SITEMG. HIS NUMBER IN INDICATES "HMI CH ITEM IN SERAPC i 
fe NOTES: Boca} I ER A ik Sue FaaE’ co ConA Aine 4 SINTERS Ex EXPLAINED A 
272 260 EM ::POINTS TO THE ERROR MESSAGE 
eva OH i 3B 0 NTS TO THE ATA HEADER 
274 OT POINTS TO THE DAT 
e7t DF + POINTS .O THE CATA FORMAT 
ere 269 SEEKESREEEKRESE SHEA ESSESHSELESSASKRSERSSAREAASLERF REE SSRE FFF RAHA + HS 
e7e ESFSKKKRSERAHEREEAEKSKAK SHAE AAEEAAALAESLARAALAAEAALELARELAAFLARESFFE HES 
280 1587 REGISTER ADDRESSES 
Ses REEKKKERRE REE EERE EERE ALLA ERASE LALLA ALLELE LA EEE E LEASE ES 

4 
283 KEKKKAKSRESKEKHSAEREKAKRAKSKRAA RELEASE KAEFRESREEKRFLASAKKSFREREEHEFE LEE 
sis 1834 REGISTER TEST 
+4 SESSKEKKSKFEKEKRHEREKRELAKHELESAAAAKALERAKASEREAAKFSHEALARESLAELFERERELEF 
287 1899 TEST 1 SIZE gies RH DEVICES 
e668 TEST DETERMINS WHICH RH DEVICE IS ON THE SYSTEM. 
283 IF THe € YSTEM HAS MORE THAN ONE Rh DEVICE THEN ONLY ONE 
2390 THE DEVICES WILL BE USED IN THE FOLLOWING TESTS. 
231 THE ONE THAT WILL BE USED IS THE FIRST ONE THAT IS PRESE 
e3e IN THE FOLLOWING LIST 
oz - 
536 ™ 
39 AE EERENCE IS RADE 10 THE. CONTROL ANG. STATUS REGISTER 
e L 
ess : FOR REERE pe be 8 rer" NSTRUCTION. 1 BNP, RESPONGS teeRR 4 17 
300 ASSUMED PRESENT AND THE Loca TIONS FQ ve oR THE 1/0 REGISTERS 
331 ; FILLED WITH THE APPROPIATE ADDR 
- THe THE ORIVE TYPE REGISTER IS ERE CKED TO HAVE GOOD 
354 YF PTE TST INSTRUCTION TRAPS TO A NON EXISTANT VECTOR 
= THEN © SIMILAR ATTEMPT IS MADE TO A RP CONTROL AND STATU 
207 THEN A TM IS TRYED. 
Spe THEN A MIXED SYSTEM WITH MORE THAN ONE RH CEVICS IS TRYE 
210 2195 TEST 2 UNIT UNDER TEST 
Zii HIS TYPES THE UNIT TO BE TESTED 
Zie AND IS THE FIRST TEST AFTER THE END OF THE SROGRA™ 


I01 
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4 CERHADO 
3ié 2302 TEST 3. BIT BANG RHCS1 
37? 
sis 2304 TEST LOADING AND READING OF ALL POSSIBLE BITS 
318 IN RHCS1 REGISTE 
3193 USE Mg ye OF WALKING. 1° Cl, ,2,4,10 ETC) 
5 , 
355 IS TEST SC! TRE! MCPE!DVAIBITI2!BITIO!ROY!GO BITS WIL 
322 AND ROY!OVA BITS WILL ALWAYS BE oe 
323 AND BIT1O BITS WILL A ays BE 
324 IF SWITCH 14 OR 9 ARE SET Lee DEBUGGING 
2e5 THEN A RH CLEAR (RHCS2 BIT #5) WILL 
326 GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
327 
328 
323 2383 TEST 4 BIT BANG RHCS2 
33i 2385 TEST LOADING AND READING OF ALL POSSIBLE BITS 
332 IN RHCSe REGISTER. 
333 USE A PATTERN OF WALKING 1’S (1,2,4,10 ETC) 
334 AND WALKING 0’S (-2,-3 ETC) 
335 IN TH HIS TEST 177740 BItS WILL NOT BE WRITTEN INTC 
336 AND IR BITS WILL ALWAYS BE SET 
337 IF SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGING 
338 THEN A RH CLEAR (RHCSe BIT #5) WILL BE 
333 GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
a0 SIGNAL. 
ais 2460 TEST S BIT BANG RHCS3 
344 2462 TEST LOADING AND READING OF ALL POSSIBLE BITS 
345 IN RHCS3 hes! STER 
346 USE A PATTERN OF WALKING 1°S (1,2,4,10 ETC 
347 AND PRING O’S (-2,-3 ETC < 
348 IN THIS TEST 177660 Bits WILL NOT BE WRITTEN INTO 
349 AND O BITS WILL ALWAYS BE SET 
350 AND BITS!B1Te:B1 T7281 TSiB1T4 BITS WILL ALWAYS BE CLEARED 
381 IF SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGIN 
352 THEN A RH CLEAR (RHCS2 BIT #5) WILL BE 
353 GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
See : SIGNAL. 
28 2541 TEST 6 BIT BANG RHWC 
358 2543 TEST LOADING AND READING OF ALL POSSIBLE BITS 
359 IN RHWC REGIS 
360 USE A PATTERN OF WALKING 1’S (1,2,4,10 ETC) 
361 AND THBLKING o’s (-2, -S ETC) 
3&2 IN THIS TEST O BITS "Hite NOT BE WRITTEN INTO 
363 Ano O BITS WILL ALWAYS BE SET 
264 IF SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGING 
365 THEN A RH CLEAR (RHCSe BIT #5) WILL BE 
SSE GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
367 SIGNAL. 
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363 CERHADO 
320 2618 TEST 7 BIT BANG RHBA 
71 
37e 2620 TEST LOADING AND READING OF ALL POSSIBLE BITS 
373 IN RHBA REGISTER 
374 USE A PATTERN OF WALKING 1’°S (1,2,4,10 ETC) 
375 AND WALKING 0’S (-2,-3 ETC) 
376 IN THIS TEST O BITS “wit NOT BE WRITTEN INTO 
377 D O BITS WILL A S BE 
378 AND BITOO BITS Witt RCWAYS BE CLEARED 
379 IF SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGING 
380 THEN A RH CLEAR (RMcS2 BIT #5) WILL BE 
381 GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
382 SIGNAL. 
384 2699 TEST 10 BIT BANG RHBAE 
386 2701 TEST LOADING AND READING OF ALL POSSIBLE BITS 
387 IN RHBAE REGISTE 
388 USE A PATTERN OF WALKING 1°S (1,2,4,10 ETC) 
3893 AND WALKING O0’S (-2,-3,-S ETC) : 
390 IN THIS TEST 177700 BITS WILL NOT BE WRITTEN INTO 
391 AND O BITS WILL ALWAYS ET 
392 AND 177700 BITS WILL ALWAYS BE C LEARED 
393 IF SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGING 
394 THEN A RH CLEAR (RHCSe BIT #S) WILL BE 
335 GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
+] SIGNAL. 
338 2784 TEST 11 SILO TEST 1 (ONE WORD WRITE) 
3939 AFTER A RH CLEAR 1s GIVEN (SET BIT #S IN RHCS2) 
400 RHCSe IS CHECKED TO HAVE “IR™ (BIT #6) HIGH 
401 TOGET HER WITH UNIT O NUMBER 
m3 ONE WORD OF ALL ZEROS IS WRITTEN INTO RHOB 
404 “OR” (BIT #7) IS WAITED FOR BY A TRAP INSTRUCTION 
40S CALLED “WAT™ (NO TIMING IS DONE) 
406 HOWEVER * DOES NOT SET WITHIN “WAT COUNT 
407 DOWN AN ERROR IS REPORTED 
408 RHDB IS READ AND CHECKED To CONTAIN ZEROS 
409 RHCS2 WILL BE CHECKED TO HAVE “IR” AND UNIT NUMBER 
410 RHCS1,RHCS3, RHBA, RHBAE,RHWC, WILL BE CHECKED TO HAVE 
ath APPROPIATE YALUES 
413 2973 TEST 12 SILO TEST 2 (ONE WORD WRITE) 
414 AFTER A RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
415 RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH 
416 OGETHER WITH UNIT NUMBER 
ste ONE WORD OF ALL ONES IS WRITTEN INTO RHOB 
413 “OR” (BIT #7) IS WAITED FOR BY A TRAP INSTRUCTION 
425 CALLED “WAT” (NO TIMING IS DONE) 
4el HOWEVER IF “OR” DOES NOT SET WITHIN “WAT COUNT 
4ee DOWN AN ERROR IS REPORTED 
mt RHDB IS READ AND CHECKED TO CONTAIN ALL ONES 


KO1 
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425 CERHADO 
4 
427 RHCS2 WILL BE CHECKED TO HAVE “IR” AND UNIT NUMBER 
428 RHCS1,.RHCS3, RHBA,RHBAE,RPHWC, WILL BE CHECKED TO HAVE 
429 APPROPIATE VALUES 
4 
431 3144 TEST 13 SILO TEST 3 (TWO WORD WRITE) 
432 
433 3146 AFTER A RH CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 
434 RHCS2 IS CHECKED 18 HAVE “IR” (BIT #6) HIGH, 
435 TOGETHER WITH UNIT NUMBER 
436 ONE WORD = peses S WRITTEN INTO RHOB 
437 RHCS2 IS CHECKED TO HAVE “IR” AND UNIT NUMBER 
438 A SECOND WORD = 12525 IS WRITTEN INTO R 
439 “OR” (BIT #7 IN RHCS2) IS WAITED FOR BY A TRAP 
440 INSTRUCTION CALLED “WAT” 
441 RHDB_IS READ AND CHECKED TO CONTAIN S2Ses5 
442 RHCS2 IS CHECKED TO HAVE “IR™, “OR” AND UNIT NUMBER 
443 RHDB IS READ A SECOND TIME AND CHECKED TO 
444 CON AIN 125252 
S45 RHCS2 IS CHECKED TO HAVE “IR” AND UNIT NUMBER A 
446 THEN ALL REGISTERS RHCS1, RHCS3, RHBA, RHBAE, RHWC 
a ARE CHECKED TO HAVE APPROPIATE VALUE 
a 3416 TEST 14 SILO TEST 4 (COUNT PATTERN) 
451 3418 AFTER A RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
452 RHCS2 IS CHECKED TO HAVE “IR™ (BIT #6) HIGH, TOGETHER 
453 WITH UNIT NUMBER 
see EIGHT HEROS, A COUNT PATTERN O THRU 7 IS WRITTEN 
4SE “OR” (BIT #7 IN RHCS2) IS WAITED FOR BY A TRAP 
457 INSTRUCTION CALLED “WAT” 
458 THEN RHCS2 IS CHECKED TO HAVE “IR” LOW AND 
459 ein HIGH TOGETHER WITH THE UNIT 
m9 Th HEN NAGS READ AND COMPARED TO HAVE he RIGHT VALUE 
462 THEN RHCS2, RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
Bs CHECKED TO’HAVE THE APPROPIATE’ VALUE 
m4 3808 TEST 15 SILO TEST S (FLOATING ONES) 
467 3810 AFTER ARH CLEAR IS. GIVEN (SET BIT #5 IN RHCS2) 
468 RHCS2 IS CHECKED TO HAVE “IR™ (BIT #6) HIGH, 
469 TOGE TH HER WITH UNIT O NUN R 
470 EIGHT HORDS a, PATTERN OF FLOATING ONES (1,2,4,10,20,40, 
471 1S WRITTEN tNT 
472 “OR" (BIT #7 IM Re 2) IS WAITED FOR BY A TRAP 
473 INSTRUCTION CALLED “WAT” 
474 THEN RHCSe IS CHECKED TO HAVE “IR” LOW AND 
475 “OR” HIGH TOGETHER WITH THE UNIT NUMBER 
476 THEN RHDB IS READ AND COMPARED TO HAVE THE 
477 RIGHT VALUE AFTER EACH OF THE EIGHT READS. 
478 THEN RHCS2 IS CHECKED TO HAVE “IR” 


LO] 
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480 SERHADO 
481 AND UNIT NUMBER . 
482 THEN RHCS1, RHC RHBA, RHBAE, RHWC ARE 
483 CHECKED TO’ HAVE $3 he APPROPIATE VALUE 
485 4227 TEST 16 SILO TEST & (FLOATING ONES IN UPPER BYTE) 
487 4229 AFTER A RH CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 
488 RHCSe IS CHECKED TO HAVE “IR” (BIT #6) HIGH, 
489 TOGETHER WITH UNIT NUMBER 
490 EIGHT WORDS, A PATTERN OF FLOATING ONES IN UPPER BYTE 
491 400, 1000, 2 0” 4000, 10000, 20000, 40000, 100000 
492 IS WRITTEN INTO 
493 “OR” (BI Me IN RHCS2)_IS WAITED FOR BY A TRAP 
494 INSTRUC ION CALL SHAT” 
495 THEN RHCSe IS CHECKED TO AVE “IR™ LOW AND 
496 “OR” HI 19 THER WITH THE UNIT NUM 
497 THEN Ri BL COMPARED TO HAVE THE 
498 IGHT VALUE AFTER EACH OF THE EIGHT READS. 
499 THEN RHCSe I CHECKED TO HAVE “ 
soo AND UNI 
501 THEN RHCS1, RHCS3 RHBA, RHBAE, RHWC ARE 
ee CHECKED TO’HAVE THE APPROPIATE’ VALUE 
208 4649 TEST 17 SILO TEST 7 (FLOATING O IN LOWER BYTE) 
S06 4651 AFTER A RH CLEAR IS GIVEN (SET BIT #S IN _RHCS2) 
S07 RHCS2e IS CHECKED TO HAVE | “IR” (BIT #6) HIGH, 
508 TOGETHER WITH UNIT NUMBE 
503 EIGHT ZHORD OF FLOATING ZEROS 177776, 177775, 177773, 
5i0 127767 17 77524 177737. 177677, 177577 
eid Is QuRI ETON, Min Be 
1 R” (BI ) IS WAITED FOR BY A TRAP 
513 INSTRUCTION C T™ 
$14 re HCSe IS ar ER KE TO HAVE “IR™ LOW AND 
5:5 “OR” HIGH TOGETHER WITH THE UNIT NUMBER. 
S16 THEN RHDB IS READ AND COMPARED TO HAVE T HE 
Si? RIGHT VALUE AFTER EACH OF THE EIGHT READS. 
Big THEN RHCSE 1s CHECKED TO HAVE * 
520 THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
pe CHECKED TO’HAVE THE APPROPIATE’ VALUE 
esa 5070 TEST 20 SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 
Ses 5072 AFTER A RH CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 
See RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH, 
Se7 5074 TOGETHER WITH UNIT NUMBER 
See EIGHT WORDS, A PATTERN OF FLOATING ZEROS IN UPPER BYTE 
5e3 177377 SS E79 175777, 173777, 167777, 157777, 137777, 
520 IS WRITTEN INTO R 
e3i “OR" (BIT #7 IN RHCS2) 75 WAITED FOR BY A TRAP 


238 INSTRUCTION CALLED ™ 
e3 THEN RHCSe IS CHECKED” To HAVE “IR” LOW AND 
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5508 
$510 


$785 
$787 


$959 
$961 


MOl 


TEST 21 


TEST 22 


TEST 23 


SEG Ole 


“OR” HIGH TOGETHER WITH THE UNIT NUMBER 
THEN RHOB IS READ AND COMPARED TO HAVE THE 
Chat VALUE _AFTER EACH OF THE EIGHT READS. 
THEN RHCSe IS CHECKED TO HAVE “IR” 


ANP HAZ Si UMBF ESS, RHBA RHBAE, RHWC ARE 
CHECKED TO’HAVE THE APPROPIATE VALUE 


RHCS1 - MCPE BIT #13 (PARITY LINE = 0) 


AN RH CLEAR (SET BIT #S_ IN RHCS2) IS GIVEN TO 
CLEAR ALL DEVICE REGISTERS 
THEN RHER1 (ERROR REGISTER 1) IS CHECKED TO HAVE 


a 
PAT” (BIT #4 IN RHC<~) TO INVERT PARITY CHECKING 
READ ANY ad So REGISTER - HERE RHER1 

RHCS1 TO CONTAIN SC (BIT #15) 


pt ¥ 
ORT Te Tye" tRe (BIT #14 IN RHCS1) 
READ RHESL BC nere Pe RDY SHOUL eae) 


#S IN 
CHECK “RUCSL TO 
CHECK RH TO HAV. ORLY IR AND_UNIT NUMBEP 
BFE eee, RHBA, RHBAE, RHWC TO HAVE APPRIPIATE 


RHCS1 - MCPE BIT #13 (PARITY LINE = 1) 


ALL "DEVICE R Esse, BiT #S IN RHCS2) IS GIVEN TO CLEAR 


eh Yee Diateescareen gen REGISTER (RHOA) 


BE ho 4) THIS WILL syERT THE PARITY CHE 


so N 
Fars READING. SHOULD'S Set Tce Bs IN RHCS1 

CHECK RHCS1 TO HAVE ONLY T 

ty lean » RHCS3, RHBA, RHBAE,, RHWC TO HAVE APPROPIATE 


TEST DUPLICATED Al& (RHCS1 BIT #8) 


CLEAR THE supsys ier BY A_CONTROLLER CLEAR (RHCS2 BIT #5) 
MOVE 400 (ONE INTO Al6) IN RHC 

READ RHCS1 TO CONTAIN 600 (BIT #8 AND RDY) 

READ RHBARE TO CONTAIN “1” (BIT #0 HIGH) 


MOVE O INTO  ® (WRITING O INTO RHBAE BIT #0) 
READ RHBAE TO CONTAIN O 
READ RHCS1 TO CONTAIN ONLY RDY (BIT #8 IN RHCS1 IS ZERO} 
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CERHADO 
283 6079 TEST 24 TEST DUPLICATED A17 (RHCS1 BIT #9) 
eg3 6081 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
593 MOVE 400 (ONE INTO A17) IN RHCS1 
594 READ RHC Ss! TO CONTAIN 1200 (BIT #9 AND RDY) 
PER READ RHBAE TO CONTAIN ae (BIT #1 HIGH) 
97 

236 MOVE O INTO RHBAE (WRITING O INTO RHBAE BIT #1) 
599 READ RHBAE TO CONTAIN 
600 READ RHCS1 TO CONTAIN ONLY ROY (BIT #9 IN RHCS1 IS ZERO) 
eps 
609 6199 TEST 25 TEST DUPLICATED IE (RHCS: BIT #6) 
606 6201 CLEAR THE SUBSYSTEM BY A A CONTROLLER CLEAR (RHKCS2 BIT #5) 
607 ‘ f MOVE 100 (ONE INTO IE) IN RHC 
60 ‘ READ RHCS1 TO CONTAIN 300 (BIT #6 AND RDY) 
603 READ RHCS3 TO CONTAIN “100” (BIT #6 HIGH) 
611 
ble MOVE O INTO RHCS3 (WRITING O INTO RHCS3 BIT #6) 
614 > 6208 READ RHCS3 TO CONTAIN 100 
bis . READ RHCS1 TO CONTAIN ONLY ROY (BIT #6 IN RHCS1 IS ZERO? 
Ele 
oi3 6319 TEST 26 RHCS1 PROGRAM ERROR (PGE BIT #10) 
bel 6321 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
622 SET UP FOR A 10 WORD W 
be3 T *eo" CRHCS 1 BIT #0) THICE IN TWO SUCCESSIVE 
624 INSTRUCTIONS 
bes. . THIS HOULD SET, SC AND TRE IN RHCS1 . 
626°. D PGE SHOULD BE SET IN RHCS2 
te RCS ARE CHECKE 
628 THE NUMBER OF WORDS ORE LARGE ENOUGH SO THAT AFTER 
6293 ONE “BIS” INSTRUCTION SET “GO” IN RHCS1 
630 THERE IS SUFFICIENT Time TO GIVE ANOTHER “BIS” INSTRUCTI 
pl TO SET "GO" BEFORE THE FIRST “GO” HAS TIME TO COMPLETE 
633 
Pac 6415S TEST 27 RHCS2 - BUS ADDRESS INHIBIT BIT #3 

. 636 : 6417 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #6) 
637 SET UP FOR A e WORD WRITE FROM A BUFFER TAGGED “WRFROM™ 
638 SET BUS ADDRESS INHIBIT RHCSe BIT #3° 
639 AT THE END OF WRITE 
640 RHCS TO’ HAVE ONLY ROY BND COMMAND 
641 RHCSe TO HAVE BA 
642 RHCS3 TO HAVE O 


an MACY11_ 30: Se 2 
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6424 


6571 


6807 


7043 


7345 


BOe 


TEST 30 


TEST 31 


TEST 32 


TEST 33 


RHBA_TO HAVE ADDRESS OF _“WRFROM”™ 
RHBAE AND RHWC TO HAVE ZEROS 


NOW SET UP READ FOR THE SAME DATA WITH 
BAI SET READ yey INTO A BUFFER TAGGED “REINTO” 
H 
RHCSe 1 HAVE BAI 
TO HAVE O 
RHBA TO HAVE ADDRESS OF “REINTO”™ 


TO HAVE ZEROS 
DATA IN REINTO BUFFER IS CHECKED WITH DATA IN 
WRFROM BUFFER 


RHSC2 MOPE BIT #8 AND RHC.3 IPCKO BIT #0 
CLEAR T ears eh fF CONTROLLER CLEAR (RHCS2 SIT #5 


MOVE ALL ZEROS INTO RHDB ONCE 
THI SHOULD SC IN RHCS1 
RE HOD: TH SHOULD SET MOPE (RHCS2 BIT #8) 


HECK HB ONE, ROY (BIT & an TRE (BIT #14), SC (BIT #15 


C 

“CLR” (RHCS2 BIT #5) IS GIVE 

a E L 

CHECK RHCS1, RHCSe, RHCS3, RHBA, RHBAE, RHWC 


RHSCe MOPE BIT #8 AND we. IPCK1 BIT #1 
CLEAR Ms te fF CONTROLLER CLEAR ‘RHCS2 GIT so) 


RHES1 
RHDB ONCE THIS SHOULD SET MOPE (RHCS2 BIT #8) 


CHECK RHCS1 FOR ROY (BIT #7), TRE (BIT #14), SC (BIT ais 
“CLR” ( BIT #S) IS GIVEN 
CLEARED 


ALL ERRORS ARE 
CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


RHSCe roe el. a8 oS wy. IPCKe BIT #2 
CLEAR YSTE A CONTROLLER CLEAR (RHCS2 SIT #5) 


L MB 
SET TPCKe (RHCS3 BIT #2) 

MOVE ALL ZER OS INTO RHDB TWICE 

THIS SHOULD NOT SET TRE SC IN RHCS1 

READ RHDB ONCE THIS SHOULD SET MOPE (RHCS2 BIT #8) 

CHECK RHCS1 FOR ROY (BIT #7), TRE (BIT #14), SC (BIT #15 
READ RHDB A SECOND TIME. CHECK RHCS1, RHCS2’ RHCS2 

“CLR” (RHCS2 BIT #5) IS GIVE 
ALL ERRORS ARE CLEARED 

RHCS3, RHBA, RHBAE, RHWC 


C 
CHECK RHCS1, RHCSe, 
#8 


RHSC2e MOPE BIT AND RHCS3 IPCK3 BIT 83 
CLEAR THE a eets Bt fo CONTROLLER CLEAR (RHCS2 BIT #5) 


TRE SC IN RHCS1 
READ RHDB ONCE TRIS SHOULD SET MDPE (RHCSe BIT #8? 
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= CERHAD 
see , CHECK RHCS1 FOR RDY (BIT #7), TRE (BIT #14), SC ‘BIT wit 


BEER PRA Geb TP is) 0S" oGUERK RHCSI. RHCS2. RHCS2 


ALL ERRORS ARE CLEA 


ok e 
Paw 


705 CHECK RHCS1, RHCS2, Re ncs3, RHBA, RHBAE, RHWC 
20 7648 TEST 34 RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT #12 

709 7650 Cc T STEM BY A_CONTROLLER_C EAR (RHCS 2 BIT st 
ate . HRYTE Nhe HERD oF aL N A rhe e ae HER GEE BE EE? 

711 DO WRITE HECK ON THAT HORD FROM AN 

cis i Ue 

oi3 ag ORD Unie CHECK WITH RHBA FROM AN 

715 TH Ss ND " Uce OW (F.iCS3 BIT #12) 

HE ee ore 

717 RHE if : 5) is GIVEN 

ris act RERROR 

943 CHECK RHCS1, HESS. PRED RHBA, RHBAE, RHWC 

¢ 

geh 7881 TEST 35 RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT #12 

‘ce 

723 7883 CLEAR T THE SUBSYSTEM BY A IOONTROLLER, CLEAR (R (RHCS2 BIT #5) 
é 

725 eet TES NpRe Rat th Che ch? ON THAT WORD F FROM S EF 

35s ee, Hg DORI TE CHECK WITH RHBA FROM AN 

556 BoUROARY 

729 oe WCE oft, (RHCS3 BIT #12) 

a} Ha” “RHE I ive te GIVEN 

o33 Check RRC 1, Rucee. ARERCSS, RHBA, RHBAE, RHWC 

hs 8114 TEST 36 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 

237 6116 AR THe SUBSYSTEM AN A CONTROLLER _C EAR (RHCS 2 BIT #5: 
738 URTTE NINE BRD O NINES ONTO THE DEVICE > 

536 Pen hons po RITE CHECK ON THAT WORD FROM. AN 

741 ONE WORD WRITE CHECK WITH RHBA FROM AN 

ey. EVEN WORD BOUNDARY 

743 THIS SHOULD SET WCE of, (RHCS3 BIT #11) 

744 AND WCE (RHCSe BIT 

74S ache ( RHCSS BI 8S) Me GIVEN 

| ALL ERRORS ARE CLEAR 

ald CHECK RHCS1, RHCS2e, RHCS3, RHBA, RHBAE, RHWC 


743 8347 TEST 37 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 


DO0e 


‘ -__9° ™ ~ 17 
CERHADO MACY11 3011046) 2i-DEC-77 13:06 PAGE 


SEG OO16 
-- . , c 
stneit Get, Rie toi i Poel NTROLLER CLEAR (RHCS2 BIT #5) 
24 CERHADO 8345 CLEAR THE SUBSYSTEM BY A CONTROLLE THE DEVICE 
oes Pts Codd gO ARITE Coe Ce ORS ees Gon B ERE aA 
753 e BouN "WRITE CHECK WITH RHBA FROM AN 
ae6 EPH RESE Png 8 7 GIVEN 
. ERRORS ARE CLEAR AE, RHWC 
P66 CHECK RHCS1, RHCS2, RHCS3, om RHE 
¢ b ) TES 
res 8581 TEST 40 TEST DBL (RHCS3 BIT #10 eet ae eee 
g 
SEG AR THE SUBSYSTEM BY A y 
moh _— om WORD WRITE FROM AN EVEN WORD BOUNDAR’ 
a | ese4 SET UP FOR A NINE ROM AN EVEN WORD BOUNDARY 
76 THe HIS. SHOU BONOT SET RHCSS BIT #10 
coo CHECK RHCS1 , RHCS2, RHBA, RHBAE,, RHWC 
 €6 1B 
77 T DBL (RHCS3 BIT #10) TES 
a55 8694 TEST 41 TES T #5) 
oo AR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe 817° 
aoe 86% Sef ST ORO URTTE FROM AN EVEN WORD BOUNDARY 
77? THES g Son ESP RNES3 BIT #10 DBL 
7? K 
4, EHECK RH RHCS1, RHCS2, RHBA, RHBAE , RHWC 
38; (RHCS3 BIT #10) TEST C 
a HN esos = TEST 42 TEST DBL ¥ & CONTROLLER CLEAR (RHCS2 817 45: 
383 8810 ST Up FOR 8. TEN WORD. et ITE F RON Bio BB uNBAR BOUNDAR 
Wo 
785 BFE Rofo fr He P Ron A 
388 BS SHOULD NOT SET RHCS3 BIT #10 
aoe eHECK rp cllgilcnp enna 
é 
7 HCS3 BIT #10) TEST D 
5af | ai Wer se st On EAR (RHCS2 BIT #5) 
M BY_A CONTROLLER CL 22 
785 8923 s"Ge? ER en ean atte Pon AN EVEN WORD BOUND 
4 EN W 
oe VEN WORD WRITE FROM AN EV 
oar THIS, g Shas NOT SET RHCS3 BIT #10 DBL 
$3¢ CHECK RHCS1,RHCS2, RHBA, RHBAE , RHLIC 
799 
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801 CERHADO 
Bvs 9034 TEST 44 TEST DBL (RHCS3 BIT #10) TESTE 
so4 9036 CLEAR ee syesyeren BY A CONTROLLER CLEAR (RHCSe BIT aS) 
sos SET UP F TEN WORD WRITE FROM AN EVEN WORD BOUNDARY 
806 te BAI tN “pncse BIT #3 SET 
807 DO A TEN WORD WRITE FROM AN EVEN WORD BOUNDARY 
aes SEAS NOT SET RHCS3 BIT #10 DBL 


RHCS3 
CHECK RHCS1,RHCS2,RHBA, RHBAE , RHWC 
9153 TEST 4S TEST DBL (RHCS3 BIT #10) TEST F 


9155 CLEAR ue. ww ty an CONTROLLER pet (RHCSe BIT sf 
Be" UP FOR A ELEVEN WORD WRITE FROM AN ODD WORD BOUNCAF 
DO A ELEVEN WORD WRITE FF.uM AN ODD WORD BOUNDARY 
THIS SS SET RHCS3 BIT #10 DBL 
CHECK RHCS3 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


, 
( 


ODODMOOwOMDMOMW DwOwWMw®w 
PU TU bs et oe 0) 
OWONITOWLSwvM-OwWM 


ge 9268 TEST 46 TEST DBL (RHCS3 BIT #10) TEST G 
Bes 3270 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR ‘RHCS2 BIT #5) 
BeY4 SET alt FOR A NINE WORD READ FROM AN EVEN WORD. BOUNDARY 
B25 rs DO A NINE WORD READ FROM AN EVEN WORD BOUNDAR 
Bee ¥ THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
gee CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
sac 9381 TEST 47 TEST DBL (RHCS3 BIT #10) TEST H 
832 9383 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
833 SET ale FOR A TEN WORD READ FROM AN EVEN WORD BOUNDARY 
834 DO A TEN WORD READ FROM AN EVEN WORD BOUNDARY 

, 835 ees THIS SHOULD SET RHCS3 BIT #10 DBL 

(B36 | r CHECK RH 

» Bae = mae CHECK RHCS1,RHCS2,RHBA, RHBAE , RHWC 
833 = 9495 TEST SO TEST DBL (RHCS3 BIT #10) TEST I 
| 3497 CLEAR, THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #S) 
Bic SET FOR A TEN WORD READ FROM AN ODD WORD BOUNDARY 
a DO A Ur EN WORD READ FROM AN ODD WORD BOUNDARY 
Bie THIS SHOULD NOT SET RHCS3 BIT #10 OBL 
Bue CHECK RHCS3 
Bue 9502 CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


B43 9608 TEST S1 TEST DBL (RHCS3 BIT #19) TEST J 


FOe2 
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851 CERHADO 


gcse 9610 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR ‘RHCS2 BIT ac) 
es2 SET UP FOR A ELEVEN WORD READ FROM AN EVEN WORD /BOUNDAR / 
sss DO A ELEVEN WORD READ FROM AN EVEN WORD BOUNDARP 

ess THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

856 CHECK RHCS3 

B57 CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

B53 9721 TEST S2 TEST DBL (RHCS3 BIT #10) TEST K 

861 9723 CLEAR THE SUBSYSTEM BY A A CONTROLLER CLEAR (RHCS2 BIT #5) 
862 SET que FOR A ELEVEN WORD READ FROM AN ODD WORD BOUNDAR 
863 DO A ELEVEN N WORD READ FROM AN 900 WORD BOUNDAR’ 

B64 THIS St SHOULD SET RHCS3 BIT #10 DBL 

BEE EHECK RHCS1,RHCS2, RHBA, RI. JAE , RHWC 

Bee 9835 TEST $3 TEST DBL (RHCS3 BIT #10) TEST L 

er 39837 CLEAR THE sue YSTEM BY A CONTROLLER CLEAR (RHCS2 BIT aS) 
71 SET UP F WORD READ FROM AN EVEN WORD BOUNDARY 
872 WITH BAI oN RHeSe BIT #3 SET 

e7s DO A TEN WORD READ FROM AN EVEN WORD BOUNDARY 

874 THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

g7s CHECK RHCS3 

a8 CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

a8 9955 TEST S4¥ TEST DBL (RHCS3 BIT #10) TEST M 

880 9957 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR agg PHSSE BIT #S) 
881 SET UP FOR A ONE WORD WRITE REVERSE FROM AN EVEN WCRD B80 
88e DO A ONE WORD | WRITE REVERSE FROM AN EVEN WORD SOUNDARY 
B82 THIS T SET RHCS3 BIT #10 DBL 

884 CHECK RHC 

ass CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

+H 10068 TEST SS TEST DBL (RHCS3 BIT #10) TEST N 

e8g 10070 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
e390 SET UP FOR A TWO WORD WRITE REVERSE FROM AN EVEN WORD 80 
B91 DO A TWO WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
Bas THER SHOULD NOT SET RHCS3 BIT #10 OBL 

ooo CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

Bae 10161 TEST S& TEST DBL (RHCS3 BIT #10) TEST O 

&3e 10183 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR ag PASSE BIT #5) 
833 ET alk FOR A THO WORD WRITE REVERSE FROM AN ODD WORD SOU 
300 O A TWO WORD WRITE REVERSE FROM AN ODD WORD BOUNDARY 
202 THIS SHOULD SET RHCS3 BIT #10 OBL 

ane CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
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356 10295 TEST S7 TEST DBL (RHCS3 BIT #10) TEST P 
30> 
} 0297 LEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT 45) 
338 sont cEEACp D'WRITE REVERSE FROM AN EVEN HORS 


U 

DO A a THREE. W WORD DERI Te R REVERSE FROM AN EVEN WORD BOUNDARY 
alt & SOR SET RHCS3 BIT #10 OBL 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


10409 TEST 60 TEST OBL (RHCS3 BIT #10) TEST @ 


ODDODDOOWDOOOW 
TU bs b+ bs OIC) 
OWD IOUS Wtue-OW 


10411 CLEAR THE syB YSTEM BY A CONTROLLER CLEAR ‘RHCS2 BIT at. 

SET UP FOR HREE WORD WRITE REVERSE FROM AN ODD WORD & 
00 A THREE WORD WRITE REVERSE FROM AN OOD WORD BOUNDGRY 
THIS SHOULD NOT SET RHCS. BIT #10 DBL 

$21 CHECK RHCS3 

ace CHECK Reel, RHCS2, RHBA, RHBAE , RHWC 

ged 10522 TEST 61 TEST DBL (RHCS3 BIT #10) TEST R 

926 4 AR THE SUB YSTEM Y A CONTROLLER CLEAR (RHCS2 BIT #5 

ge nits CER TER AT se WRITE REVERSE FROM AN EVEN WORD BO 

328 WITH BAI in Rues2 wert #3 SET 

328 DO A TWO WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 

331 10S2e THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

332 CHECK RHCS3 

rid CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

335 10642 TEST 62 TEST DBL (RHCS3 BIT #10) TEST S 

937 10644 CLEAR THE SUBSYSTEM Y A CONTROLLER CLEAR ‘(RHCS2 BIT #5) 

938 SET auh FOR A NINE WORD READ REVERSE FROM AN EVEN WORD BO 

933 bo 8 NINE WORD READ REVERSE FROM AN EVEN WORD BOUNDARY 

$40 HIS SHOULD SET RHCS3 BIT #10 DBL 

S41 CHeeK RHC 

S4e CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

343 IF MAG. TAPE NOT USED. THIS Test IS NOT DONE 

oe 10761 ##TEST 63 TEST DBL (RHCS3 BIT #10) TEST T 

947 10763 CLEAR THE SyBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 

S48 SET A TEN WORD READ REVERSE FROM AN EVEN WORD 80U 

349 DO A UT EN OfoRD READ REVERSE FROM AN EVEN WORD BOUNDARY 

350 THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

o c 
952 CHECK RHCS1,RHCS2, RHBA, RHBAE, RHWC 
ge3 IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 


HOe 
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955 CERHADO 
358 10879 TEST 64 TEST DBL (RHCS3 BIT #10) TEST U 
958 10881 T STEM BY_@ CON R_CLEAR (RHCS2 BIT #5) 
3é9 SEF" piPor a TER HoeB Reap Rev aan FRBR MEN SBE HORS Boon 
360 N ODD WORD BOUNDARY 
361 oars SHouLO gfe RUCSS vERFE #100 
3E5 CHECK RH Rice RHCS2, RHBA, RHBAE , RHWC 
363 IF MAG. c31, RH $34 eee thite 5.2 IS NOT DONE 
366 10998 TEST 6S TEST DBL (RHCS3 BIT #10) TEST Vv 
368 11000 CLEAR THE suBsYSTEN BY A CONTROLLER CLEAR (RHCS2 BIT aS: 
965 SET UP FOR A ELEVEN WORD READ REVERSE FROM AN EVEN WORD 
37 00 a gLEVEN WORD READ RE\.RSE FROM AN EVEN WORD BOUNDARY 
371 HIS SHOULD SET RHCS3 BIT #10 DBL 
ce Cheek RHCS3 
373 CHECK RHCS1,RHCS2, RHBA, RHBRE , RHWC 
374 IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 


$75 

go> 11117 TEST 66 TEST DBL (RHCS3 BIT #10) TEST W 

358 11119 CLEAR THE Syesveren BY BY A CONTROLLER CLEAR (RHCSe GIT 85) 
8) 


7 SET UP FOR A ELEVEN WORD READ REVERSE FROM AN ODD WORD B 
n° DO A ELEVEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 
Be 11122 THIS SH SHOULD NOT SET RHCS3 BIT #10 DEL 
3é5 HECK RH 2, RHBA, RHBAE , RHW 
3e5 iy MAG. esi, NS? Ose. h2 Geb4 fs NOT DONE 
p= 14 11235 TEST 67 TEST DBL (RHCS3 BIT #10) TEST x 
983 11237 LEAR THE SUBSYSTEM BY A CONTROLLER CLEAR CRHCS2 BIT #5) 
230 rte " EN WORD READ REVERSE FROM AN ODD WORD 30UN 
4 

$3e - A eh dB RB KERD Ae vease re FROM AN OOD WORD BOUNDARY 
233 THIS SH SHOULDY NOT SET RHCS3 BIT #10 DBL 

3 &H EEK RHeey RHCS2, RHBA, RHBAE , RHC 

3 IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 


RH 
IS THE END OF TEST FOR ONE RH 
IF THERE ARE MORE RH Me all in PROGRAM 
JUMP TEST 2 FOR NEXT 


ey 
c 
é 
. 

11362 TEST 70 ENO OF ONE 
3 ENes 
2 3.29 TO TEST 
c END Pass IS REACHED ONLY RP Ten ALL RH ARE COMPLETE 


OoOOOWWOWOW 


+b +e ae 
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i004 CERHADO 
100 SEEEESERSEEESEEEED EER SESE EES SESS SESS SEER PES ES ES EF EES RES SESE FEES 
1006 11400 END OF FASS ROUTINE 


FSSSSSSSSSSSSSLASSSSESSEHSLASRSSSLASSSSAFESSL SSF FSSSFSSASES FS SEHS 


11402 SNCRENENT THE PRSS NUMBER ($PASS) 
YPE “ENO owas ee Lung Pe XXXXX IS A DECIMAL NUMBER) 
If THERES A oe hoe GO TO _ IT 
IF THERE ISN’T JUMP TO TST2 


SHLASSSSSLAKAAAAASLSRE SLAF SSF SAS FSHALELESSHSSSSSE LSS EASLSSSLE SES HS 


11433 SUBROUTINES 
FESFESESAF LESS LELESRESELE SALE SE SESSLER E SRSA EL ES ESET SEE SESE EES 


SHEERS SSSAESAEASAAALALESSESAELE KALE LEAFS LSSSRELAESLELAEE SHS EHS SS 


11655 RS DATA TRANSFER SUBROUTINE 
FESFEERSES SES SSF EREEEE SEES ELSES SESSS ESE PERASE EES ES EEE SEE ESSE 


116S7 ate SUBROUTINE WRITES OR READS OR pote 4 
WRITE CHECK_ON CYLINDER O TRACK QO SECTOR 0 
pT Gea UMES THE RH REGISTERS ARE APPROPRIATELY 
WHEN IT RETURNS FROM THIS SUBROUTINE TO THE 
MAIN PROGRAM IT MEANS THE TRANSFER IS COMPLETE 


THE CALL IS BY A JSR RO,aCOMND COMAND 


: EHEPRSSS ESSER EERE EERER EERE LEAEEESE EEE SERA E SEES EE SERS E REESE REEDED 
3e 11704  RPOY DATA TRANSFER SUBROUTINE 


= = = = = Be ee Be be = be Bo be be be oh = he 8 bo ee he 8 be he bo ho 

ONMOVOVOOOVOVOVOVOVOVOVOVVOVOVON0N00000000 
GIWIPUTUPUPUTUPUTULUMU Ue & & OOO 
—-OWDNOWN £ WIM - ODO INOW £ Wwe OWD IO UW 


4 SFSSSSSSSSSFSSSSSRASSASFSSSASKSRSSSSSASFLASHERASESSRSSSELRARSERF HS ES 
3$ 11706 THIS SUBROUTINE WRITE/READ/WRITE CHECK ON THE RPOY CYLIN 
36 TRACK O, SECTOR O. 
1038 11708 IT ASSUMES THE RH REGISTERS ARE APPROPRIATELY FILLED. 
1039 WHEN IT RETURNS FROM THIS SUBROUTINE TO THE MAIN 
L04C PROGRAM IT MEANS THE COMMAND IS COMPLETE 


Lose THE CALL IS BY A JSR RO,JCOMND COMMAND. 


J0e 
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i044 CERHADO 
id4s LEEKEEEEEEE EEE EREEEEEEEEERERESEES ESSE ESE ESSE SESE SESE SSS SE SESE SESS 
1046 1175@ TMO2 DATA TRANSFER SUBROUTINE 
ie FREESE EEPLEE SLES EEEERELE SEE ELE SSE EEEES EEE EEESE SEES ESSE EE EESES SSS 
49 11760 THIS SUBROUTINE WRITES/“READS/WRITE CHECKS ON THE TMOeE-TuU 
ON THE FIRST BLOCK FROM BEGINNING OF TAPE ‘BOT) 
11762 IT ASSUMES THE RH REGISTERS aS grrmomnigreLy FILLED. 
WHEN IT RETURNS FROM THIS SUBROUTINE TO 7HE 


MAIN PROGRAM IT MEANS THE ZOMMAND Is COMPLETE. 


THE CALL_IS 
JSR RO, JCOMND 


11915 THIS ROUTINE WILL ALLOW *°.iE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


119S2  HHRERRRRERRRRERRE RRR E EES EE 

SEEKER ERE REE REEL EERE EE EEEE ELLE SESSA E REESE REESE ESSE ESSE EEE EET 
11985 SCOPE HANDLER ROUTINE 

SFEEEELERAAE AERA REESE ESSERE REAR AE SEER EEE EEE ERE E SS EES ESF 


11987 as ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
AND LOAD My. | thine NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7 


2 AND LOAD T HE ERRO R FLAG (SERFLG) INTO DISPLAY<iS:08> 

7 THE SNITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

2 SWi4=1 LOOP Es 

2 SWli=1 ENMIBIT ITERATIONS 
1074 SWOS=1 LOOP ON E 
1078 sHOB=1 LOOP ON TEST IN SWP<7:0> 
ad SCOPE ;;SCOPE=IOT 
107 SEFREREREEKALERKKKKAREAKKAEAKARERARAHELAARAAKAAFREFEAAFLAFAHALRAF FEAT 
1080 12051 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
ipas KREKAKSKKKSAKEKAKAKAKKSAAEAAAARAKAAHKAAEKAA LAS KRAAAAFAAREAFSLESRKELE 
1083 12053 THIS ROUTINE IS USED TO. CHANGE A 1g BIT BINARY NUMBER TO A 5-DIG 
1084 SIGNED DECIMAL (ASCII) NUMBER AND _T YPE IT. alee ENDING ON WHETHER 
1085 NUMBER 1s POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE T 
1086 BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL BC WAYS 
4 REPLACED WITH SPACES. 
ined Mov NUM, -(SP) :;PUT THE BINARY NUMBER ON THE S 
iRey TYPDS ::GO TO THE ROUTINE 


KO0e 
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92 CERHADO 
$3 EELS REESE EEE EEE SEER EERE ESSERE SEES HERES EERE ESE E EES ES SESE ESSE SH 
34 12119 TYPE ROLTINE 
rs FESEEEFEELES ER ESSE ERE REE EERE ELLE EE EEEELEL ELE LEL EP EESEEE PRESSES SES 


12121 ROUTINE TO TYPE ASCIZ sae wert MESSAGE MUST TERMINATE WITH A O B 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS Ye A_LINE 
NOTE1: $NULL CONTAINS THE CHARACTER " BE USED AS THE FILLER CH 
TES! SFILLS CONTAINS THE NUMBER OF FIL per CHARACTERS REQUIRED 


NOT SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

CALL: 

1) USING A TRAP INSTRUCTION 

a TYPE »MESADR -;MESADR IS FIRST ADDRESS OF AN 
TYPE 
MESADR 

2) USING A JSR INSTRUCTION 
MOV PS,-(SP) 3 sPUSH PROCESSOR STATUS WORD ON 
JSR PC,STYPE ;CALL_ TYPE ROU 
MESADOR i TEIRST ADRESS OF MESSAGE 


SHA SKRESSAA LSA FLEAAAEKRAALELSRASAASAAAALSSRELASARELLALELERERASSRE SES 


i2i92@ TTY INPUT ROUTINE 
SESSESSSEELEES SEERA ELE SLES EEE LE REESE ERASE ESLER ELE SEES ESE 


12201 TK INITIALIZE ROUTINE 
id te OUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


JSR PC,STKINT 
RE TURN 


12218 TK a oh ROUT INE 
dt M. E_ THE TTY KEYBOARD INTERRUPT 


Ic 
ey € HE ER FROM THE INPUT BUFFER AND PUTTING 
IT s THE QUE “con 


IF THE CHARACTER IS TROL-C" (tC) STKINT IS CALLED AND 
UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (OPE 


1224S ith ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
RDCHR ;;GET A CHARACTER FROM THE QUEUE 
RETURN HERE ;; CHARACTER IS ON T 
;;WITH PARITY BIT STRIPPED OFF 
12266 ae ROUTINE WILL INPUT A STRING FROM THE TTY 
o5 INPUT A SrRING FROM THE TTY 


ROLIN 
RETURN HERE ;ADORESS OF FIRST “ey £ pti, 
TERMINATOR WILL BE A BYTE O 


LW OWONOT UE WN OWONOU LW OWD NOUS Wl OWD MUL Wtr-OwWON 
* 
Dm 
RD OD 


ba bs he he he he be be Bs Be ee Be be he he Be Be oe = oe OOOO 
FEEL LWWWWWWWWWGWTUTUPU MUN TUTU PU PUT 9  - --- QOOOOOOOOOWWW 


b+ bb b= b= Be = be he Be be bs Be Be be bo Be fe Bo Be Be be Be bs bs Bs be be bs bs Bb bo Be = bs bs bo = bo pe Be Be 


LOe 
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i145 CERHADO 
i146 LEELEAESELEL ESSE EREEEEELERE EASES SESE SESE ERASE SRE SER ES SESE ESE ESS 
1147 12303 READ AN OCTAL NUMBER FROM THE TTY 


SRHKSKHE RSEAAFSSRALSHAKESLKALASLLAFSSLSSLRALSLELESF FRESE SLEAASSRS SSS 


12305 a S i eb HILL REAO AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
— INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE > 


mola haRiaGe RETURN-LINE FEED: THE COMPLETE NUMBER Mus 
lag RETY PED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RE 


RDOCT READ AN OCTAL Ni A a 
RETURN HERE ‘HL OW dW ORDER BITS ARE _ON TOP OF T 
:HIGH ORDER BITS ARE TN SHIOCT 


FHKAASKAREAEKLLAEELSKAE LALLA SLAF RAAF LLASLFRAELAASEAEFRERHRAEEE 


12357 ERROR HANDLER ROUTINE 
SELES EAERAEEEEEE REESE EELS EEE EERE EERE EEE EEE EE 


12389 Mahe | Routine WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
SANE ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


Ae Sis SGP te Rov IDED BY THIS ROUTINE ARE: 
HALT ON ERROR 


a CAN occue BEFORE AND AFTER THE ERROR TYPEOU 
INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

uses LOOP ON ERROR 


ERROR N ; ;ERROR=EMT AND N=ERROR ITEM NUMBEP 


KHKKAKAAEKEHLAKKKEKALAERAKKKAAALALAAAAKALALAAELAAAALELERASLLAERE FREE 


12401 ERROR MESSAGE TYPEOUT ROUTINE 
6 0 4 aE AE ae eH SE Ee a a a a ga aa aa a a aaa 


12402 aPOUTINE ob Ses THE sITEN CONTROL BYTE" (SITEMB) TO DETERMINE 
END REPORT T APPROPR af NEORMATION CONCERNING THE ERROR” 
aire 1S 8 A COP Y NO THe SeRnt 1 "peganat 10 FROM SP aAe. 


FIRS rir «gulch H & 1S 56. SWITCH 8 RESET THEN 
ALL REGISTER CONTENTS BILE TYPED BEFOR REPORTING THE ERROR 
12409 RECON Ma THE GuBRENT crAson HAS THE SAME ITEM NUMBER 
VIOUS ERROR THEN ONLY THE earn WILL BE TYPED 
AND NOT THE ERROR MESSAGE AND HEADER 


12627 SRALERESERESRERAEEERRRE REE REARAE REAL SEES RARER RAA SHALES HLH ES 
SEEREREKEREERE EE ERRK EK RREE ERA ER EERE RRA LAA KAR REE REE ER EES REE EES 


8 = bs es ee 8 Oe be be ee ee be a be ee eb ho he se be eo ee = oe 
DDD DDDDOOO OOD OOO WIV VIII IVI OOO OTT OS OOM NTU UT ££ 
~ ul 
fT brdnt tetaW tpt tt tay Tet fen ee iath PAN Tee pet abe) at ths At tilt ett dU at tt be 2 
w 
= 
a 
oO 
“ 
os 


MOe 
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1196 CERHADO 

i197 RHSKKAKKRKSERESSSAREERESKERESSSSSRERSESELEARSSHS SLE SHSRSSSSSRFSAESSS 

1198 12631 BINARY 7O OCTAL (ASCII) AND TYPE 

1133 FEKSKKSKAAKEESESKKKAAREEAREAASLAESAESSSAALALAASSFLAEFSLSLAASLKELES 

1 

1201 12633 THIS ROUTING 1S 1s y¥SED TO TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIG 

1388 BfyPos<“"ENteR HEBER +8 NOT uP SUPPRESS ZEROS AND NUMBER OF DIGITS 
NUM, - (SP) iN TYPED 

is 5 eitlenenietio 5 ABER OR Tee our 

1207 Bvt N ji N=t 1 70 FOR NUMBER OF DIGITS 

1208 .BYT M :3M 

1209 ;;1=TYPE LEADING ZEROS 

1610 ;;O0=SUPPRESS LEADING ZER 

lele STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE 

1213 $TYPOS OR S$TYPOC 

1214 CALL: 

1215 Moy NUM, -(SP) 5 ASE TO BE TYPED 

igig TYPON :CALL FOR TYPEOUT 

1218 ETvPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

ige0 ¢ MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

ice! TYPOC >:CALL FOR TYPEOUT 

lees REKHKKKKERKKALSAKSEHKAAEKAAKAKKKAAARAKERAAAAKEARALRAAKERAAARERAAAKSREE 

1224 12709 TRAP DECODE 

soe KREKKKKKAKAAKAAKAKSSASAKALASKKAAKKASKSEAREALKAARAAAHAAKAAAKAFEARERLEE 

lee? 12711 HIS ROUT WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTIO 

1556 en u use NG, thbek ¢KkoucH THE TRAP TABLE FOR THE STARTING ADDR 

1663 oT FIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

i534 0 +e T ROUTINE. 

1232 KEFKKAESKKASKAAEKEKAKKKKKKAAKFAKKRE SKK KEAASAAHAAKLERALARAARRAKRAKRELAEE 

1233 12724 TRAP TABL 

iste KEKEKAESKAFKRAAFRARASSKAEAAKRSSKHKAAAKARSAAHKAKEAHRERAHARAKKSKAEKFRER 

1638 12726 THIS TABLE CONTAINS 7 STARTING ADDRESSES OF THE ROUTINES CALLE 

1 BY THE ™ * INSTRUCTION. 
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CERHADO 
12746 


NOe2 


SEG 0026 


HKEFHEAAAALAAAALAAAALSFKLAELSS LA LLAELLESLALEKSLSFLLLLLSLSAELE KLE LSS 


POWER OCWN AND UP ROUTINES 
FEREEAELEE EERE REEL EERE REE EEE EE EEE EEL RELEASE EEE EEE EE EE 


12786 KEKKESKLEAELAAALAELLLSALAELREFRKFLERELEFLELEFLELLELLAAEFLLFFFESSSSAESS 
EAFKLEKELSSSASAAFSESAALF LESS FLSA EASE LELLE LES SSLELEELFLESLRELESSS 


B03 
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1246 . TITLE _CERHADO 
1249 ;#COPYRIGHT (C) 1975-1977 
1250 : "DIGITAL EQUIPMENT CORF. 
1251 ; SMAY NARD, MASS. 01754 
ise : 
1254 * STHIS PROGRAM WAS HSSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
1255 ; #PACKAGE (MAINDEC-11-DZQAC-C1),MAR 24, 1976. 
1 ; 
1858 -SBTTL OPERATIONAL SWITCH SETTINGS 
l ; 
1260 + SWITCH USE 
lebi cc  - nese 00d SRO ONSereeEseseTe 
lebe i 15 HALT ON ERROR 
1263 1 14 LOOP ON TEST 
1264 1% 13 INHIBIT ERROR TYPEOUTS 
1265 :# 11 INHIBIT ITERATIONS 
1266 te 10 BELL ON ERROR 
1267 te ) LOOP ON ERROR 
1268 * 2) LOOP ON TEST IN SWR<7:0> 
1269 : + ? STOP FURTHER CO MPARES IF SWOB IS LOW 
1276 :# & TYPE ALL REG. WITH ERROR IF SWE LOW 
a "SBTTL BASIC DEFINITIONS 
1273 -*#INITIAL ADDRESS OF THE STACK POINTER ### 1000 *#* 
ise sx sates aTaee EAP ERROR sBASIC DEFINITION OF ERROR CALL 
+5 - 
i528 EQUIV IOT, SCOPE ;; BASIC BEF INGT ION OF SCOPE CALL 
¢ 
127 #MISCELLANEOUS DEFINITIONS 
1279 000011 t= 11 ;;CODE FOR HORIZONTAL TAB 
1280 900012 LF= le ;;CODE FOR LINE FEED 
1281 000015 CR= iS 33C OR CARRIAGE RETURN 
1282 000200 CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
1283 177776 PS= 177776 : t PROCESSOR STATUS WORD 
1284 .EQUIV PS,PSW 
lees 177774 STKLMT= 177774 ss STACK LIMIT REGISTER 
ees 177895 te ES tafe mcaieven “eos 
= se 
1288 . 177570 DOISP= 177570 | eu Bt AY REGISTER 
1290 *GENERAL PURPOSE REGISTER DEFINITIONS 
1291 poooce hoz 70 ; GENERAL REGISTER 
1292 000001 Rl= “1 5 ; GENERAL REGISTER 
1293 000002 Re= %2 :;GENERAL REGISTER 
1294 090003 R3= %3 :;GENERAL REGISTER 
1295 (C004 R4= “4 ;; GENERAL REGISTER 
129 ooo00s RS= 4S ; | GENERAL GISTER 
1297 C006 Rb= “6 :;GENERAL REGISTER 
1298 000007 R7= “7 ; GENERAL REGISTER 
1299 000906 R&=SP :;STACK POINTER 
1300 000007 R7=PC ::PROGRAM COUNTER 
1302 *PRIORITY LEVEL DEFINITIONS 
1303 cooooc bro= 9 ;;PRIORITY LEVEL © 
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PRI= 4 ;;PRIORITY LEVEL 1 

i380 88 it PRo= 180 i BRIORI TY LEVEL 2 

1306 000140 PR3= 140 : PRIORITY LEVEL 3 

1307 0 PRY= 98 3 sPRIQRI TY bey LY 

1309 0 PRE: 300 S ORTORETY LEVEL & 

900300 PRb= $3 

1393 000340 PR7= 340 ;PRIORITY LEVEL 7 

t3i2 -#" SWITCH REGISTER” SWITCH DEFINITIONS 

1313 100000 SwiS= 190000 

1314 040000 Swl4¥= 4000 

1315 ooc SwWi3= 20000 

1316 010000 Swi2= 10000 

1317 904000 SWil= 4000 

1318 002000 Swid= 2000 

1319 001000 SwO9= 1000 

1320 000400 Swos= 400 

1321 0200 SwO7= 200 

1322 000100 SwOb= 100 

1323 000040 Swos= 40 

1324 000020 SwO4¥= 20 

1325 000010 SWO3= 10 

1326 000004 SWwO2e= 4 

1327 ooocde SwOl= 2 

1328 000001 Swoo= 

1329 - EQUIV d09, sus 

1330 [EQUIV 5wO8; Swe 

1331 “EQUIV SWO7;SW7 

1332 "EQUIV SWO6; SWE 

1333 [EQUIV SwWOS; SWS 

1334 [EQUIV ; 

133s "EQUIV 5SWO3;SW3 

1336 “EQUIV 2, 

1337 “EQUIV SWO1;SWi 

: a8 -EQUIV SWOO,SWO 

1340 -#DATA BIT DEFINITIONS (BITOO TO BITIS) 

1341 100000 8IT1S= 100000 

1342 949000 BIT14= 40C 

1343 02000 Ti3= 200 

1344 610000 BITiz= 10000 

1345 004000 BITi1= 4900 

1346 002000 BIT10= 2000 

1347 10 BIT09= 1000 

1348 000400 BITO6= 400 

1349 000200 BIT07= 200 

1350 000100 BITOb= 100 

1351 000040 BITOS= 40 

1362 00020 TO4= a 

1353 0010 TO3= I 

1354 000004 BlTO2e= 4 

i2ss o000d2 BITOl= 2 

1356 900001 BITOO= 1 

1387 -EQUIV B1709,8179 

1356 -EQUIV BITOB,BITS 

13¢S "EQUIV BIT07'BIT7 


DO3 
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x RHAD.Fil 12e:4 ceG 00es 

6 -EQUIV T g. ITé 

6 - EQUIV TOS,B1ITS 
-EQUIV TOY, BITY 

QUIV BITO3,BIT3 

EQUIV B8ITO0e,BITe 

EQUIV 1701. Bith 

EQUIV IT00,B81TO 


*BASIC “CPU” TRAP VECTOR RODRESSES 

900004 RAV ce 4 Hi dseay HER ERRORS 

000010 RESVEC= 10 + RVED LEGAL INSTRUCTIONS 
000014 TBITVEC=14 ti 

000014 TRIVEC= 14 : TRACE T 

000014 BPTVEC= 14 i HBREAKPOINT TRAP (BPT) 

9000¢ JOTVEC= go $3 179 TPUT TRAP (IOT) *#SCOPEs# 
o0000e4% VEC= i ‘OWER 

909030 ENTVEC= 30 s EMULATOR TRAP (EMT) ##ERROR#* 
000060 TKVEC= el KEYBOARD VECTOR 

000064 TPVEC= 64 ::TTY PRINTER VECTOR 

000240 PIRQVEC=240 ::PROGRAM INTEXRUPT REQUEST VECTOR 


-SB1TL TRAP CATCHER 


MO ODMOMOMMO)INVIININNIP OOK Terror 
NOW LW OOD NOUS WM+-OWD NOU Wrue- 


= ee ee be ee ee he eb Oe be eb be be ee be ee = os oe bs bo ee be 
EOI) WW) GIG) GIGI GIG) WWI) WI WWI WI W WWI WI WWI WWW WW WWW WWWWW WWW 


oooc00 =0 5 
; #ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN. + he - 2*2, HALT 
:#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERR 
nt anne ;#LOCATION O CSNTAING 0 TO CATCH IMPROPERLY LOABED VECTORS 
89 000174 900000 DISPREG: . WORD 9 ;SOFTWARE DISPLAY REGISTER 
90 000176 ocoj0000 SURES: WOR O60 SOFTWARE SWITCH REGISTER 
91 L sia TING ADDRESS(ES) 
3¢ ooo2c0 900137 oossee 7. JeBEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
94 oo000%6 7540 SENDAD 
95 Saa0ce =Se 
96 oocos2 900000 000000 
97 000210 =210 
38 900210 9000137 osDSs3e2 IMP : sBEGIN F JUNE SELECT TEST 
3 ;*STARTING ADDRESS OR NORMAL STAR 
+400 j #THIS WILL TEST ALL RPO4'S ON THE SYSTEM A SINGLE DRIVE AT A TIME 
ide ; BSTARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
1404 + STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 
1405 :#AT THE ORIV 
1a38 "SBTTL MEMORY MANAGEMENT DEFINITIONS 
1108 ;*#KT11 VECTOR ADDRESS 
1410 o00250 MMVEC= e250 
- 
iste ;#KT11 STATUS REGISTER ADDRESSES 
. e 
1414 177572 SRO= 177S72 
1415 177ET4 SRi= 177574 
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i416 177S76 SRe= 177576 

er4 i7eSib SR3= 172516 

isis ;#KERNEL “I PAGE DESCRIPTOR REGISTERS 
14 

i4el 172300 KIPDRO= 172300 

l4ée 172302 KIPORI= 172302 

l4e3 172304 KIPORe= 172304 

1424 172306 KIPDR3= 172306 

14eS 1723i0 KIPORY= 172310 

1426 17e3le KIPORS= 172312 

l4e7 172314 KIPORG= 172314 

tase 172316 KIPDR7= 172316 

fast ;#KERNEL “I PAGE ADDRESS REGISTERS 
143e 172340 KIPARO= 172340 

1433 17e34e KIPARI= 172342 

1424 172344 KIPARe= 172344 

1435 172346 KIPARS= 172346 

1436 172350 KIPARY= 172350 

1437 i723Se KIPARS= 172352 

1438 1723584 KIPARG= 172354 

tuud 172356 KIPAR7= 172356 

144) 5p REREERERERERELER REE EES EE SEE ESSER ESSE E REESE EEE SESE ERED ED ER EE ES 


i442 0011id -=1110 








FOS 
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=DEC-"7 12:48 COMMON TAGS 
i443 .SBTTL COMMON TAGS 
i SRSSSSSESSSSSLSSSSSSAASESRSKSHE SHS FARSSHSHSSSSSSHSFHR SHG HES 
lak ‘THIS TAB £ yg bE VARIOUS COMMON STORAGE LOCATIONS 
1447 :#USED IN THE PROGRA 
1448 
ee annus cease ;START OF COMMON TAGs 
450 001100 SCMTAG: ii 
i421 001100 oo0000 ASS: WORD = : CON ONTAINS PR S COUNT ie 
1452 00110e 006 STSINM: .BYT 3 ; CONTA NO THE TEST AN 
1453 061103 000 SERFLG: .BYTE 0 ii enTat SOOO EST TTERATION COUNT 
H32¢ Bolloe podo0 a Tehok: “WORD OO | SONTAINS SCOPE LOOP ADDRESS 

ii T 
1456 001110 900000 SLPERR: .WORD 0 CONTAT RE TURN & ERRO 
1457 001112 o00000 SERTTL: RD O 
1458 001114 ~— 000 SITEMB: :BYTE 0 Bei iTeM ERRORS PER Fest 
1459 001115 001 SERMAX: .BYTE 1 sSCONTARNS BAX, ERRORS Pita TegTRuction 
1460 001116 0900000 SERRPC: :WORD 0 i fouralne ok Br FAROR INST 
i4ee Dolise 00000 SEDADR, [WORD 0 :ECONTAINS ADDRESS OF *BAD’ DAT 
: 5 OF 

1463 O0011e4 00000 S$GDDAT: :WORD 0 {CONTAINS ; 6000 opal 
1464 00'le6 9000000 SBDDAT: :WORD 0 :: CONTA 
1465 001130 000000 - HORD E : : RESERVED--NOT wm BE USED 
4 4 000 $AUTOB: -BYTE O ; ;AUTOMATIC MODE INDICATOR 
HES BH oontts cities oS ee 
47 40 177570 WR RO  OSWR $3 OF SWITCH REGISTER 
tas, Botts §6455258 Bees ay: “GORD BBTSP | |ABDRESS OF BiseLAy REGISTER 
1493 Sot ive 1p 7ebe STKe, 1o5eee :: TTY K FER 
1474 OO11S0 177564 $TPS: 177564 iiTTY PR NTER STaTus REG. ADDRESS 
i475 001152 177566 $TPB: 177566 $3 Tty PRIN PER REG, ADORED? « 
1438 bor iee O02 rites: BYTE g : CONTAINS a OF FILLER ChaRac JERS REQUIRED 
1478 OO1156 Ole SFILLC: .BYTE 12 ;; INSERT FILL CHAR os ohovee 
1479 001157 Oo STPFLG: :BYTE 0 :ATERRINAL AvRILABLE™ FLAG (BIT<O7>=0=vES 
a oe a. a TWHICH (SREGO) WAS OBTAINED 
1482 001162 oD0000 SREGO: .WORD OO ::CONTAINS (($REGAD) +0) 
i483 001164 o00000 SREG1: .WORD 0 i CONTAINS c GAD) +2) 
1484 001166 00 $REGe: :WORD O j CONTAINS ((SREGAD) +4) 
1485 901170 oO0000 SREG3: :WORD 0 i CONTAL (($REGAD) +6) 
ide? Sotis4 BppBoB SREGe: | “WO 3 SF KONTAINS ((SREGAD) +12) 
i488 001176 00 $TMPO: :WORD OO ss USER DEFINED 
1489 001200 oo90000 $TMP1: [WORD 0 ; ;USER DEF D 
14390 OO0le0e 00 STMP2: [WORD 0 ; :USER FINED 
i491 001204 9g00000 STMP3: :WO 0 ; UBER FINED 
i492 001206 o00000 STMP4Y: [WORD O ; USER DEFINED 
i493 001210 O00 STMPS: ‘(WORD O ; i USE ED > sumnaredial 
1494 OOlel2 oo0000 STIMES: $3 MAX. NUNS oe emarig 
1495 O001e14 o00000 z SESCAPE:0 33E APE ON_ERR 
i496 O01e16 177607 000377 SBELL: = .ASCIZ «2077 «3779«377> 3 ;CODE FO eet 
1497 ODle22 O77 SQUES: ‘ASCIT “7. Si QUESTION MARK 
1498 O0l2e23 O15 SCRLF: ‘ASCII «15 >: CARRIAGE RETURN 


GO3 
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i993 OCiee4+ I9000le SLF: ASCIC le ;;LINE FEED 


acu z p EPS SEES SE LESSEE EE ESSE SESH EEF E EEL E ESE SFE SESH EFSF IFFFHPFFFFFFEFS FS 
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.SBTTL ERROR POINTER TABLE 
;*#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN eat 


:#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER_FOUND IN 
iS beat ion ST Ten 73 Tis NU eo INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


CER 


: oNOTEL: bf Ch ate ee § Fue Fave CONTAING 4 pate Ig. a eel ainéo AS FOLLOWS: 
:* EM ; POINTS TO THE ERROR MESSAGE 
:# 4 Hah 19 THE pa ATA HEADER 
:* OF tiB BSINTE TO THE bata FORMAT 
oo1226 SERRTB: 


: FRESESSSSSSS SEES ESSE SHEE SESSLER ESSE SLASH ELE FESS EES FEL SEFRS FHF SES 


; ITEM 1 
EMi 


fufutu rurutu Putululur- er ee OOOO O0O000 


a = es bs = be = ee ee be eo ee bn ee be ee Bb be ee hh rhe rem = 
OT eT CT TT rintsiitolidoloicien ee WU Ue z 
Mn Ll tlutlsr-OWONOU LW OWW St tt At iieteph tet tt ie WM OWONC UE Wl O OMIT WU £ LIne 


O0i2ze O46676 Tx BASE aPRORESS Wa WA 0y72m40 
ICATIN 
HE ORIVE TYPE B16 
EDwTaIN 0,1,2,3 OR 4 

001230 065117 DH1 <a 

001232 o665S2 OT! : SERRPC , SBDDAT, 0 

001234 066734 DOF 1 :0 
3 : ITEM 2 
34 001236 o47050 EM2 : THE RH BASE ADDRESS WAS 776700 
3 i INDICATING AN RPO4, RPOS yor RPOb 
3 THE DRIVE TYPE’DID N 
3 CONTAIN 20020 24020, Coual. 24021, 
3 :20022, OR 24022 
4O O01240 065117 DH1 :PC 
42 OO1e42 oBEsse - i SERRPC, SBDDAT, 0 
4 601544 Oee734 Bri ; ‘ : 

s ITEM 3 
001246 o4725e EM3 ; THE RH BASE ORESS WA WAS 772440 
s INDICATING A THE 

. !ORIVE TYPE DID NoT BU NTATH 
4 3142010 INDICATING NO 
5 : TMO2 
2 001250 065117 DH! er 
E3 oclese oceesse DT ERRPC, SBDDAT,O 
2 001254 O6e734 Bri i geF 
E ;ITEM 4 
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? & oN74 EM4 : THE RH BASE ADDRESS Was 776300 
1225 ee : INDICATING MORE T 
i553 :RH DEVICE. BUT THE PORIVE 
1560 : TYPE DID NOT CONTAIN 
1561 iQ,1,2,3 20020, e420 20021, 24021, 
15be : 200 ee, 3435 916 INDICATING NO 
1563 :RH DEY Fee $4 oRede 
1564 001260 065117 DH1 sec 
1565 001262 o665S2 OT1 : SERRPC, SBDDAT,O 
1567 OGlee4 66734 DF1 :0,0 
1568 
i569 LITEM S 
1570 O01266 947705 EMS ;THE UNIBUS TIMED OUT 
1571 :FOR EACH OF THE FOL. OWING 
1572 : ADDRESSES INDICATING 
1873 O RH ON THE SYSTEM 
1575 So ABORT PROGRAM 
1576 oO01270 065126 DHS :P 
1577 ; UNTBUS ADDRESSES ON WHICH 
1578 TIME OUT OCCURRED 
157§ 001272 066560 OTs ?SERRPC_RSCS1,RPCS1, THCS1,MIXCS1 
1580 OCie74 066736 OFS :0,0,0,0,0 
1582 ;ITEM 6 
1S83 O0l276 oS0060 EM ;AFTER AN RH CLEAR (BIT #5 
1584 :IN RHCS2) RHCSe DOES NOT 
158s :HAVE ONLY IR AND UNIT 
1586 : NUMBER 
1587 001300 osseD2 DH6 PC 
1588 TEST NO 
i5e9 ; RHCS2 GOOD 
1590 5 CSe BAD 
1591 o01302 066574 OT  SERRPC. TSTNM, SGDDAT, SBDDAT 
1592 001304 66743 OFE :0,0,0,0 
is34 ;ITEM 7 
1595 001306 oS0176 EM? AFTER CLEARING THE RH AND 
1596 WRITING ONE WORD INTO 
i597 :RHOB AND READING IT 
iS9e :BACK CAUSED RHDB TO 
1539 :HAVE WRONG VALUE GIVEN IN BAD RHOB 
1600 OO1310 oese4s OH? ;PC 
1601 ; TEST NO 
i60e :;RHOB GOOD 
1603 :RHOB BAD 
1604 001312 o86574 OTe : SERRPC, TSTNM, SGDDAT, SBDDAT 
1605 O0:314 O66743 DF ;0,0,0,0 
1606 
1607 ; ITEM 10 
1608 001316 050370 EMIC sAET R CLEARING THE RH RH AND 
1603 WRITING ONE WORD 
1610 RHO AND READ ING iy 
1612 BACK, CAUSED RHCSe TO 
161E :HAVE WRONG DATA 


CERHADO MACYI1 201 1 0%82 
CERHAD.F1l 2i-DeC- 


00i3s20 O6Se0e 
O0i3ee@ 66574 
001324 066743 


00i32&6 OSO0S63 


001330 065305 


WWwlufururulflfulufufule- — b> oe 
K—ODODNOM LW -OWONOUW £W 


3 


001332 066574 
001334 066743 


WWW 


00i336 oS07S6 


= ee be ee ee ee so oe 
POO KCOO COMO Orrrrrnro 


LWW 
OWDNOW LW 


l64e 001340 065347 


1646 O01342 066574 
1647 O01344 066743 


1650 O01346 051151 


1656 001350 O€S41i 


1660 001352 O&&574 
1PPs 001354 066742 


1664 001356 051343 
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DHE 


;ITEM 14 
EM11 


DH11 


OT6 
OFE 


; ITEM le 
EMle2 


; ITEM 13 


JO3 


i GIVEN IN BAD RHCSe 


C 
: TEST NUMBER 
RHCSe GOOD 


RHCSe BAD 
! $ERRPC, TSTNM, SGODAT, SBDDAT 
:0,0,0,0 


Hed CLEARING THE RH AND 
RITING ONE WORD INTO 

i RHOB AND READING IT 

:BACK, CAUSED RHCS1 TO 

;HAVE WRONG DATA 

igIV EN IN BAD RHCS1 


: TEST NUMBER 
;RHCS1 G000 

RHCS1 BAD 
SERRPC. TSTNM, SGDDAT, SBDDAT 
'0.0,0,0 


: RHO! 

;BACK, ySAUSED HBA TO 
BE MONS 

Civ n“TN BAD RHBA 

‘TEST NUMBER 

:RHBA GOOD 


. BAD 
: SERRPC, TSTNM, SGDDAT, SBDDAT 
:0,0,0,0 


;AFTER CLEARING THE RH AND 
;WRITING ONE WORD INTO 
; RHDB AND READING 


;HAVE WRONG DATA 





= 
oO 


merry 
DD 
oo 3 
SINAN 
fWwv-Ow o 


aa 


OWODODODDODODOO NY 
-OVONOU £WM-OWDONO 


ALOU ODD WN Laty 


ee ee ed ee ee ee ee ee ed ee ele ee ed eed et et ed et et et et eee ee 
mun cWwt-OWONM 


NN NNNNNNNNNNN NNN NNN NNNNE POO OOOO OOOO KOKO KOTO OTTrno 


TUTUTUTUTU eo bb OOD 


fwnhr-OwOon 
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001360 


001362 
001364 


001366 


001400 


001402 
001404 


001406 


06S4S1 
066574 
066743 


0$iS36 


065513 
066574 
066743 


051730 


06S2e0e 
066574 
066743 


052123 
oese4s 
066574 
066743 


0S23iS 


2i-0EC-77 
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ERROR PO 


; ITEM 17 
E 


DH14 


DT6 
DFE 


; ITEM 15 


EmM1S 


DH1S 


DT6 
OFE 


s ITEM 16 
EM 


DHE 


OT& 
OF& 


M17 


DH7 


OT6 
OF6 


; ITEM 20 
EmMeC 


BoINTER TABLE 


i; GIVEN IN BAD RHBAE 


: TEST NUMBER 
}+ o- — GOOD 


— BAD 
!SERRPC, TSTNM, $GOUAT , SBDDAT 
:0,0,0,0 


;AFTER CLEARING THE RH AND 
; I ORD INTO 


; WRITING one W 
;RHDB AND READI 
ipeUne wiouep ane TO 


AVE WRO G DATA 
atv N IN’ Bab RHWC 


:PC 
TEST NUMBER 
;RHWC GOOD 


:RHWC BAD 
: SERRPC, TSTNM, SGDDAT , SBDDAT 
:0,0,0,0 


;AFTER CLEARING THE RH AND 
;WRITING ONE WORD INTO 

; RHOB 

; CAUSED te B 10 

SHAVE WRONG 

sghVeN IN BA ARcs2 

; TEST 

;RHCSe GOOD 

RHCS 


SERRPC. TSTNM, SGDDAT, SBDDAT 
:0,0,0,0 


ASDrDR 
SASS 
2 
e 
Bxe 
8 


ae 
x 


Pm 
oD 
ax 
o 


ING THE RH AND 
WORD INTO 
ADING ONE 

O RHCSe TO 
DATA 


i 
Sia 

oe 

SORES 


: HAVE 





CERHADO MACYi1 20 1 0%82 
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SELL £EWW) 
WLW-OwOO*) 


“Ni tottolotel 2 ot 2 2 222 2 tlc cunnwnn 
uy Gee 5o54 
W£SWhr-O OO) 


vit 
Wt Wwtu-OWON 


eb = eb he eo bb be hs ee ho ee 
COrrrn 


NNNNSNNSNA SY 


ISRAee 


1771 


001420 
001422 
001424 


001426 


001430 
001432 
001434 


00i436 


001440 
001442 
001444 


OO1L44E 


001450 


BBI48S 


0014S& 


2i-Dec-" 


065202 
066574 
066743 


O0SeS11 


065245 
066574 
066743 


0Se711 


0&S202 
066574 
066743 


OS31ie2 


O06Se0e 


bee?43 


053307 
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DHE 


OT6 
DOF& 


; ITEM 21 
Emel 


DH7 


DT6 
OFE& 


; ITEM 22 
EM2e 


Ore 


OT& 
OF6 


; ITEM 23 
EM23 


DHE 


Bre 


; ITEM 24 
EM24 


LOS 


CSe BAD 
i SERRPC TSTNM, SGODAT , SBODAT 


GIVEN IN BAD RHCS2 


C 
i TEST NUMBER 
;RHCS2 GOOD 


0,0,0,0 


;AFTER ett THE RH AND 
;WRITING TWO W RO iH 


;RHOB AND 


TEST NUMBER 
GOOD 


i SERRPC TSTNM, SGDDAT, SBDDAT 


. 
’ 


iA 

; WERE 
;READING R_ THE 
:"N" TH. TIME GAVE WRONG 


,0,0,0 


mie CLEARING THE RH AND 
WR WORD INTO 


ik ITING TWO 
; BACK fuices 
s Have WR 


RHOB 


VEN IN BAD RHCS2 


TEST NUMBER 
; RHCS2 GOOD 


ge CRBC TSTNM, SGDDAT , SBODAT 


TOO 


HURT FING CLEARING THE RH_AND 


NTO 


; BACK cee CAUSED RHDB TO 
SHOVE, ip NG DATA 
VEN IN B 


PAUSED RHCS2 TO 


IGHT WORD INTO 


CAUSED aired ae 


TO 


;GIVEN IN BAD RHCS2 


eal vase 


iFERREC, OTS TNM, $GODAT , SBDDAT 


THE RH WAS CLEARED 
A PATTERN OF 6 Wi 


. SEG 0037 


CERHADO MACY11 30: 1046) 
2i-DEC-77 


CERHAD 


~ 
NN 

@ 

Ww 


Siete yt Ries erties Sh bis tn 


oO 
N 


= ee an eee te ee ee ee es be Be ee ae ae Be ee ee be ee be ee ee Be he ee oh ee he he ho hh he Oe 
WODDOWDOODMOMMOMMna 


MoOwDwDowon @w 
SIQIGOBUUUOMUUVY mrs mer Oo 


-Pll 


001460 


001462 
001464 


001466 


001470 


001472 
001474 


065553 


066606 
066747 


053537 


O06Se0e 


066$74 
066743 
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OHe4 


OTe4 
DF 24 


; ITEM 2S 
Emes 


; ITEM 26 
Emes 


; ITEM 27 


oo 


OT 
OF 
; ITEM 30 


MO3 


; VALUE IN RHOB 

4 IS GIVEN IN “WORD NO” 
‘T 

TERS. 13 

;RHDOB GOOD 


+ BERR RP Nm, SILONM, SGDDAT, SEDDAT 
:0,0,0,0,0 


NE PEER OF B WORDS HERE 
HE HEITREABISGMEP «won 
jFOLLMI Rees TER BONSRS IED WRONG 


;PC 
: TERT NO 
;R 35 GOOD 
;RHCSe BAD 
| RERAEC, PETIT, SESONT , SEDO 


TEST NO 

i RHC 00D 

: SERRPC, TSTNM, SGODAT, SBODAT 
:0,0,0,0 


iPE 

; TEST NO 

;RHBA GOOD 

;RHBA BAD 

5 RERARY , TSTNN, SGDAT , SECON 


;P 
Fest NO 
;RHBAE GOOD 


;RHBAE BAD 
5 REE, To The, SGDOAT , SEDOAT 


- SEG 0038 


CERHADO MACY11 30( 104% 
CERHAD.Pil -? 


184 


CERES REREU 
BO Vou e une OD 


a a a aa a a a a a mk at 
@ 
~— 


pert tS fa 


bia Ll OT bat hae E 


1536 
1540 


o001S4e 
001S44 


001S46 


2i-DEC- 


0$3S37 
068513 


066S74 
066743 


053766 
065623 
066574 
066743 


054102 


13:06 PAGE 40 
ERROR POINTER TABLE 


; ITEM 32 
Emes 
DH1S 


; ITEM 33 
EM3 


; ITEM 35 
EM3S 


DH11 


DT6 
DOF& 


; ITEM 36 
EM36 


NOS 


TEST NO 
RHC GOOD 


HWC BAD 
 SERRPC TSTNM, SGDDAT, SBDDAT 
:0,0,0,0 


PET Race oS CLEOR BIT #S 
N On Reis USED 
RROR REGISTER 1 TO HAVE 

: RONG VALUE 

; TEST NO 

;RHER1 GOOD 

;RHER1 BAD 

:SERRPC, TSTNM, SGDDAT , SBODAT 


;AN_RH LCLEAR WAS GIVEN 

;RHER1 WAS CHECKED TO HAVE ZERO 

;PAT (BIT #4 RHCS2) WAS SET 

;TO_ INVERT PARITY CHECKING 

;RHER1] WAS Re BUT DID NOT 

iB IN WHAT IS IN RHER1 GOOD 
TEST NO 

BAER GOOD 


1 
} SERRPC, TSTNM, SGDDAT, SBDDAT 
:0,0,0,0 


;RH CLEAR WAS GIVEN 

;RHERI WAS CHECKE 

;PA (BIT #4 RHCS2) WAS SET 
WAS READ 


Bo a oh HAVE RDY 


1 Oe ne, SGDDAT, SBDDAT 
'0,0,0,0 


;RH CLEAR WAS GI 


T #4) WAS SET 
;RHER1 WAS READ AND CHECKED 
;"1" WAS WRITTEN INTO “TRE”-RHCS! 


SEQ 0039 


4, 


CERHADO NACYI1 30\1046) 2i-DEC-77 13:06, PAGE wi 
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i893 
i894 


CERHADO MACY11 30: 1046) 


CERHAD. 21-DEC-77 32:48 ERROR 


i896 
isg7 


olvelvelvelververvelvelvelvelververvetvervelytryé] 
be OOOO 
-OWONOU EL WM-OWONOM LW 


aa 


= De ee ee be be Be ee ee be be ee ae ee ee ee ee 
wie 
bor 


0.0 00000 
wWWwruturorn 
-OW0OND 


Pli 


001600 
001802 
001604 


001606 


00 

001624 
001626 
001634 


00163 


001664 


OO1bbE 


065305 


066S74 
066743 


oss01i7 


365305 


066574 
066743 


055017 
065202 


066743 
055017 
066743 
055017 
066743 


055321 


21-DEC-77 13:06 PAGE Ye 


s ITEM 


; ITEM 


; ITEM 


; ITEM 


s ITEM 


> ITEM 


POINTER “ABLE 
On11 


CO4 


PC 
; TEST NUMBER 
;RHCS1 GOOD 


BE RREC TS TNM, SGDOAT, SBDDAT 
:0,0,0,0 


;RH_WAS CLEARED 
;RHERI WAS CHECKED 

;PAT (RHCS2-BIT #4) WAS SET 
;RHERI WAS REA i 

"1" WAS WRITTEN IN “TRE™ RHCS1 
AN RH CLEAR WAS TO 

;GIVE WHAT IS IN “GOOD 

:BUT GAVE WHAT IS IN “BAL 


: TEST NO 
:RHCS1 GOOD 

:RHCS1 BAD 

;SERRPC, TSTNM, SGDDAT , SBDDAT 
:0,0,0,6 


;AFTER AN RH CLEAR 
31" WAS WRITTEN IN THE DISK 


RHADO MACY 30,1046 
cERHAD 21-DEC- 


CERHAD.Fi 


i9Se 
19S3 
1954 
1955 
1956 
1957 


35 


3960 


— 
0 


001670 


001672 
001674 


001676 


001724 


001726 
001730 
001732 
001734 


001744 


O&S66S 


066574 
066743 


ossss?” 


osssS7 
065347 
066$74 
066743 


066743 


ossss7 
065451 
066574 
066743 


21-0EC-77 
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DHYS 


DT6 
DF6 


ITEM 46 
EM46 


s ITEM 47 


; ITEM SO 
E 


; ITEM S1 


; ITEM S2 
E 


; ITEM $3 


DOY 


; ADDRESS REGISTER (IN TAPE 


: DRIVES CALLED F 


; ON 
s DRIVES RHFC ) 
CODASRHEC 


1 NO 
:RHDA GOOD 


;RHDA_ BAD 
;SERRPC, TSTNM, SGDDAT, SBODAT 


:0,0,0,0 


; AFTER AN a C 
“4 RITT 


WAS W THE 
; DISK MABORESS REGISTER (IN 


One ROING AH 


FOLLOWING 
Reg SHER “O1B 
uke IS IN 


BEL GOOD 


CS1 BAD 
: SERRPC, TSTNM, SGODAT, SBDDAT 


RAME COUNT 
SET 


IT DIO N 


LEAR 
EN IN 


WAS SET 
DA (IN TAPE 


None ,CONTAIN 


) 


CERHADO *  ehins 30( 1046} 
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2008 o0i746 Os5557 
2009 001750 06551: 
2010 O017Se 066574 
2011 O017S54 066743 
2e0le 
2013 cs 
2014 oo17S6 OSE060 
2015 
e0i6 
e017 
2018 
2019 : 
20e0 001760 o68SscS 
e0el 001762 9066574 
e0ee OC01764 066743 
20e3 
20e4 
2e0eS 001766 OS56060 
e026 001770 o654S1 
20e7 O61772 O66574 
20e8 001774 066743 
2029 
2036 
2031 O0i776 O56e71 
2032 
2033 
2034 
2035 
2036 
2637 ooe000 65451 
2038 O0c00e 066574 
2039 002004 066743 
2040 
2041 
e042 OO2006 056271 
2043 O02e0i0 065305 
2044 O020le 066574 
204S 002014 066743 
2046 
2047 
2048 OO20i& oS6527 
2049 
2050 
2051 
2052 
2053 
2054 oO02e020 065305 
2055 O02e02e 066574 
2056 002024 066743 
2057 
2058 
20S9 O02e026 056527 
e060 O02030 0654S) 
e061 002032 066574 
2062 002034 066743 


2i-DEC-77 
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s ITEM S4 
EMSY 


; ITEM SS 


; ITEM S& 
EMS6 


; ITEM S7 


; ITEM 61 


EO4Y 


;AN_RH CLEAR (RHCS2 BIT #5) 
WAS GIVEN 

TAl6 (RHCS1 BIT #8) WAS SET 
ON READING THE FOLLOWING 
;REGISTER IT DID NOT . 
[CONTAIN WHAT IS IN “GOOD 


;AN RH CLEAR (RHCS2 BIT #S) 
; WAS GIVEN 


;A16 WAS WRITTEN IN RHCS1 


; THE FOLLOWING REGISTER DIO 
:NOT CONTAIN WHAT IS IN “GOOD” 


;AN RH CLEAR (RHCS2 BIT #5) 


:WAS GIVEN 

Al7 (RHCS1 BIT #9) WAS SET 
ON READING THE FOLLOWING 
REGISTER IT DID NOT 

CONTAIN WHAT IS IN “GOOD” 


FOY 


ae, MACY1i_30(1046) 2i-DEC-77 13:06 PAGE 4S 
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ITEM 62 
sbee 062036 oS6740 EMbe st RH CLEAR (RHCS2 BIT #5) 
Soee ;Al7? WAS WRITTEN IN RHCSL 
2068 ALL ZEROS WERE WRITTEN IN RHGAE 
2063 : THE FOLLOWING REGISTER DID _ 
207 :NOT CONTAIN WHAT IS IN “GOOD” 
2071 002040 065451 DH14 
2072 O0e04e O66574 OT6 
2073 002044 066743 OF6 
2074 
2075 ; ITEM 63 
2076 OO0204%% 056740 EMb2 
2077 O020S0 065305 DH11 
2078 O020S2 066574 
20739 002054 066743 OF6 
e082 oG20S6 oOS7175 EM64 fey hy CLEAn (RHCS2 BIT #5) 
2084 IE (RHCS1 BIT #6) WAS SET 
2085 :ON READING THE FOLLOWING 
2086 :REGISTER IT DID NOT ¥ 
2087 :CONTAIN WHAT IS IN “GOOD 
e088 O02060 065305 DH11 
2089 002062 O66S574 DT6 
2690 O02064 066743 DF& 
2091 
2092 ;ITEM 65 
2093 O02066 057175 EM64 
2094 002070 065347 DH12 
2095S 002072 066574 DT6 
20 002074 066743 
2097 
2098 ; ITEM 66 
2099 002076 057175 EM64 ;AN RH CLEAR (RHCS2 BIT #5) 
2100 :WAS GIVEN 


;A16 WAS WRITTEN IN RHCSi 

ALL ZEROS WERE WRITTEN IN RHBAE 
: THE FOLLOWING REGISTER DIO 

:NOT CONTAIN WHAT IS IN “GOOD” 


i TW SUCCESSIVE uve (RHCS1 BIT #0) 
;WAS GIVEN WITHOUT GIVING 
:TIME FOR FIRST “GO™ TO 


2191 

2102 

2103 

2104 

2105 002100 065347 DH12 

2106 O02¢i0e 066574 OTe 

2:07 002104 066742 OF6 

2108 

2109 ; ITEM 67 

2110 902106 057175 Mb4 

2lil 002110 065305 DH11 

e112 OO02lie 066574 DT6 

2113 002114 066743 Fé 

2114 

211s : ITEM 76 

e116 O0211e Os764s EM70 ;RH CLEAR WAS GIVEN 
a4 

2116 

21:4 
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2120 ; COMPLETE 
2lel : THE FOLLOWING REGISTER 
elee :DI0 NOT CONTAIN WHAT IS 
2le3 ; IN "GO oo 
eleY O021e0 065305 DH11 
eleS O0eiee 066574 DT& 
eie& O0eie4 066743 OF 6 
ele? 
2ie8 ; ITEM 71 
eieS O021e6 OS7644 EM? 
2130 002130 O6Se0e DHE 
2€i31 002132 066574 OTb 
2i3e 002134 066743 OFE& 
2133 
2134 ; ITEM 72 
2135 OS7644 EN70 
2136 O02e140 965347 DHie 
e137 OO0el4e 06657 OT& 
2i38 002144 066743 OF 6 
2139 
2140 ; ITEM 73 
2141 002146 oS7644 EM7O 
else 002150 O6S54i1 DH13 
2i43 O0elSe 066574 OT6 
2144 002154 066743 OF& 
214S 
2146 ; ITEM 74 
2147 002156 057644 EN70 
2148 002160 065451 DH14 
2ei49 O0elbe 066574 DT6 
5130 00e164 066743 DOF6 
21Se ; ITEM 75 
2153 002166 OS7644 EM70 
2154 002170 065513 DH1S 
€i55 O0el7e 066574 DT6 
e1S& O00ei74 066743 DF6 
2187 
2156 ; ITEM 76 
21S9 002176 060120 EM7E ;RH CLEAR WAS GIVEN A 2 WORD 
2160 ;WRITE WAS DONE FROM A 
2161 ;LOCATION TAGED WRFROM 
2elte ;AND WITH BAI Bir SET 
2163 ;AT THE END OF THE WRITE 
2164 ; THE FOLLOWING REGISTER DID 
2165 ;NOT CONTAIN WHAT IS 
2166 ; IN GOOD 
2i67 O02200 065305 DH11 
ei68 O0ee0e 066574 OT6 
2169 002204 066743 DFE 
2170 
217i ; ITEM 77 
2i7e O02e0&6 60120 EM76 
e173 O0ee19 O65e0e DHE 
2174 OOeele 066574 Te 
2175 O0ee14 O&6743 OFE 
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5158 ; ITEM 100 
FRE 002216 EM7E 


066743 


060120 


WLWu-OwW 


002234 066743 


O02e3& 060120 
065451 
066574 
002244 066743 


Wh-OwOn 


O0ee46 060120 
O0eeS0 
O02eSe 
c02eS4 


fururufu fu rorurororu fu rurufurururorurururufuru ru 
on 


TUPUTU me me ee 


838 a sry bs 0 BOBO RROD Oe - 


3 4 
o02256 3 :RH CLEAR WAS GIVEN AN 

:IPCK BIT SHOWN IN “IPCK” WAS SET 
:ZEROS WERE MOVED INTO RHOB 
:ON READING RHO 
; THE FOLLOWING REGISTER 

0 NOT CONTAIN 
1S IN GOOD 
:PC, TEST NO, IPCK,RHCS3 GOOD RHCS3 BAD 
i SERR PC, TSTAM, IP’ $GDDAT, $B0bAT 


002260 
O0ecbe 
002264 


002266 
:PC,TST NO, IPCK,RHCS2 GOOD,RHCS2 BAD 
: SERRPC TStNM, IP’ $GDDAT, $B00AT 


Bos8e4 366761 


— 
oO 
oc ooOoMl VOO 


; 10 
OCee76 DE0ESI ;RH CLEAR WAS GIVEN 
; IPCK BIT SHOWN _IN DK" WAS SET 
; ZEROS WERE MOVED INTO 
RHDB FROM AN ODD WORD 
;RHOB WAS 


READ 
N RH CLEAR WAS GIVEN 
75 CLEAR ALL ERRORS 
: THE FOLLL OWING REGISTER 
:DID NOT CONTAIN 
:IS IN GOOD 
O&e04S :PC, TSTNM, IPCK RHCS1 GOOD,RHCS1 GAD 
OBEESE : SERRPC, TSTNM, TP, SGDDAT, SBODAT 
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002304 

310 
00e31e 
902314 
002316 
0Ge3e20 


O00e3ee 
002324 


002334 
002336 
002344 
002346 
00e3S4 
00e356 
002360 


002262 
002364 


002366 
002370 


O0es7e 
002374 


002376 


066766 


066761 
O606S1 
066754 
060651 
066754 
ae 


066622 
066754 


0&6Se0e2 
066574 
066743 


061142 
065347 


O066S74 
066743 


061311 
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OF 106 
: ITEM 107 
EM 


;ITEM 110 


NAICS 


: ITEM 


i —_ 
~ ~ 

ov00rw oU0MM VOOM VOoOUM 
NH3Arz 
re 


o0r-OoO 
ft-oO 


; ITEM 


nar 
— pe 
00+O 
fine 


; ITEM 


— 
~ 
NHArz 


: ITEM 114 


sITEM 115 


;ITEM 116 
EM116 


I04 


;0,0,0,0,0 


;PC, TSTNM, IPCK,RHCSe GO00,RHCSe BAC 


:PC, TSTNM, IPCK,RHBA GOOD, RHBA BAD 
; SERRPC, TSTNM, 1P, SCODAT, SBDDAT 


:PC, TSTNM, IPCK ,RHBAE GOOD, RHBAE BAD 
i SERRPC, TSTNM, IP, SGODAT, SBDDAT 


:PC, TSTNM, IPCK,RHWC GOOD, RHWC BAD 
: SERRPC TETNM, IP, SGDDAT, $B00AT 


; ’ sO» ’ 


;RH CLEAR WAS GIVEN AN 
SA WRITE CHECK WAS DONE 
;THE FOLLOWING REGISTER 
DID HOT CONTAIN WHAT IS 
iN "GOOD" 


74 


;RH CLEAR WAS GIVEN AN 
;A WRITE CHECK WAS DONE 
; THE FOLLOWING REGISTER 
;D0ID NOT CONTAIN WHAT IS 
;IN “GOOD” 


;RH CLEAR WAS GIVEN AN 
!A WRITE CHECK WAS DONE 
: THEN ANOTHER RH CLEAR WAS 
















CERHADO MACY11 
CERHAD.Fil 


223i 02400 
eeSe 30e%0e 
2e33 O00e404 


ee9s 

22396 e4 
ee37 002410 
ee98 OGe4%le 
ee399 002414 
2300 

2301 


OG2444 


O0e446 


002e4S4 


NLWM-OWONOULW-OwOW 
oO 
=] 
fu 
<£ 
t= 
fu 


Re en ~eere & eorueet> Bae ee 


e3e6 O024S6 


2331 d02460 
233e O0e%be 
2333 002464 


2336 d02%66 


2239 002474 


234%e O02e476 
00e500 


30: 1046) 
21-DeC-77 


066743 


061311 


O06 
066574 
066743 


061311 


066743 
061311 
066743 
061521 
065347 


066574 
066743 


061Se21 


061521 
06S20e 


13:06 PAGE 49 
ERROR POINTER TABLE 


s ITEM 117 


; ITEM 120 


; ITEM lel 


; ITEM lee 


; ITEM 123 


; ITEM 1 


; ITEM le 


; ITEM 126 


JO4 


;GIVEN TO CLEAR ALL ERRORS 
:THE FOLLOWING REGISTER DID 
INOT CONTAIN WHAT IS IN “GOOD” 
;ON_A SILO TEST TO 

!TEST DBL RHCS3-BIT #10 

;THE FOLLOWING REGISTER 

;DID_ NOT CONTAIN WHAT 

!1S IN "GOOD" 





KO4Y 


RHADO MACY11 30(1046) 21-DEC-77 13:06 PAGE SO iS 
cERHADS Pll 21-DEC-77 12:48 ERROR POINTER TABLE S€9 0043 

2344 oO0es502 066574 OT6 

2324S O00eS04 066743 OF6 

2346 

2347 : ITEM 127 

2348 S06 061521 EM124 

2349 002510 065411 DH13 

2350 OO0eSi2 dobbs? DTb 

2351 14 06674 OF6 

2353 .TEM 130 

2354 O62S16 061521 EM124 

2355 O00eS20 065451 DH14 

23 002522 066574 OT6 

2357 002524 066743 DFE 

23593 ; ITEM 131 

2360 O0eS26 961521 4 

2361 002530 065513 DHIS 

2362 O0eS32 066574 DT& 

2363 002534 066743 

2364 : ITEM132 

2365 002536 061664 EM132 ; BEFORE DATA TRANSFER 

2366 :COMMAND WAS TO BE GIVEN 

2367 :THE RP DRIVE 

2368 :STATUS REGISTER DID NOT 

6363 :CONTAIN WHAT IS IN GOOD 

2371 o02540 066301 DH13e2 ie 

2372 TEST NO. 

2373 :RHDS1 GOOD 

2374 :RHDS1 BAD 

2375 oO2s542 066574 DT6 

2376 O02S44 066743 

2377 ; ITEM133 

2378 oO02546 Ob204e EM132 ;BEFORE DATA TRANSFER 

2379 :COMMAND WAS TO BE GIVEN 

2380 ; THE RS DRIVE 

2381 ;STATUS REGISTER DID NOT 

e382 :CONTAIN WHAT IS IN GOOD 

2384 002550 066301 DH132 sPC 

2385 TEST NO. 

2386 'RHDS1 GOOD 

2387 :RHDS1 BAD 

2388 O0eSS2 066574 DT6 

2389 002554 066743 

2390 ;ITEM 134 

2391 O02556 Ocb2220 EM134 i BEF ORE DATA TRANSFER COMMAND 

2392 :WAS TO BE GIVEN THE 

23923 MAG TAPE DRIVE STATUS 

2234 !REGISTER DID NOT CONTAIN WHAT 

cer :1S IN GOOD 


2397 O0eS60 066301 
2398 O0eSbe 066574 
2399 O0eS64 066743 





CERHADO — 30( 1046) 
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LOY 
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; ITEM135 
E 


ei- 


-DEC-77 
21-DEC-77 12:48 


O0eSt6 062410 M135 


002S70 066343 DH13S 


00e$72 
00eS74 


002576 


066666 
066773 

; ITEM136 
062610 EM 


002600 066343 


002602 
002604 


002606 


O&6666 
066773 


063012 


O0026i0 066423 


002612 
002614 


066792 
067000 


5 0 
002616 063140 EM 


002624 066766 pF 
002626 063372 é 
065305 


066574 
066743 


;WAS WATIING FOR A BIT TO SET 
;BIT IN QUESTION IS IN “BIT WAITED FOR” 
REGISTER IN QUESTION IN “REG ADDR" 


; TEST_NO 
i BC _OF WAT 


;REG ADOR 
: SERREC, TSTNM,WATIPC,WAITBT,WAITRE 


;WAS WATIING FOR A_BIT TO RESET 
IN QUESTION IS IN “BIT WAITED FOR” 

|REGISTER IN QUESTION IN “REG ADDR” 

: TEST NO 

;PC_OF WAT 

REG ADD 


R 
: SERRPC, TSTNM, WATIPC, WAITBT,WAITRE 
:0,0,0,0,0 


;ON_WRITING AND READING 


3; THE REGISTER 8 es “REG. ADDR” 
;1T DID NOT CON AIN 

i EXPECTED VALUE. 

; TEST NO 

;REG ADOR 

3 GOOD aie 

;BAD DATA 


i SERREC, W eer. SBDADR, SGDDAT , SBDDAT 


;AFTER CLEARING THE RH AND 
!:WRITING TWO WORD INTO 

?RHOB AND READING IT 

: BACK TMICE, CAUSED RHCS1 TO 
ietVEN"T ATA 

:GIVEN RR ‘Bab RH¢S1 


S TEST NUMBER 

;RHCS1 GOOD 

;RHCS1 BAD 

sSERRPC,TSTNM, $SGDDAT, $38DDAT 


KERHARO. eres QMG2 


002636 


002640 


O02e64e 
002644 


O0eb46 


0026S0 


002652 
O00e6S4 


002656 


002660 


902662 
002664 


O026E6 


002670 


063573 


065347 


066574 
066743 


063774 


065411 


066574 
066743 


064174 


06S4S1 


066S574 
066743 


064375 


065513 


; ITEM 14S 
EM 


SgBEe 77 1S OE ORS OPNTER TABLE 


; ITEM ‘ue 


DHle 


DT& 
DF6& 


; ITEM 143 


EM143 


DH13 


OT6 
DFE 


;ITEN 144 


EM144 


14S 


DH1S 


MO4 


aRITT CLEARING THE RH AND 
WRITING TWO wore INTO 

RHOB AND REA! QING yy 

iBACK Mth $ CAUSED RHCS3 TO 


G’D 
+ OVEN IN IN ‘Bap RH¢S3 


FEST NUMBER 
imucey Bp GOOD 


ieee c OP TNM, $GDDAT, SBDDAT 
'0,0,0,0 


EARING THE RH AND 
TWO WORD INTO 

RE GIT 
; BACK CE, aa RHBA TO 


:HAVE WRONG DAT 
; GIVEN IN BAD RHA 


i TEST NUMBER 
RHBA GOOD 


: RHBA BAD 
: SERRPC, TSTNM, SGDDAT, SBDDAT 
:0,0,0,0 


eae 


5A TER CLEARING THE RH AND 
saat ING TWO WORD INTO 


AND BEADING IT 
; BACK TWIC + pRAUSED RHBAE TO 
WR 
GIVEN IN BAD RHBAE 


‘TEST NUMBER 
:RHBAE GOOD 

:RHBAE BAD 

: SERRPC, TSTNM, SGDDAT , SBDDAT 
'0.0,0,0 


;AFTER CLEARING THE RH AND 
; WRI I TO 
'RHDB AND READING IT 

:BACK TWICE, CAUSED RHWC TO 
!HAVE WRONG’ DAT 

; GIVEN IN BAD RELIC 


i TEST NUMBER 
4+ HWC GOOD 
HWC BAD 


SES O0Si 


ste igh 30( 1046) 
CERHAD.P 21-DEC-77 


uw 


a eo ooo 
WOON UI£ Wu 


pono 3 


2520 
1 


002672 
002674 


002676 
002700 


00e70e 
002704 


002706 
002710 


002712 
002714 


066574 
066743 
064575 
066475 


066716 
067005 


064767 
066S2e4 


066726 
067010 


21-DEC-77 13:06 PAGE 53 
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DT6 
F 


; ITEM147 
EM147 
DH147 


DT147 
DF 147 


NOY 


; S9ERRPC, TSTNM, SGODAT , SBDDAT 


:0,0,0,0 

3A DEVICE BASE ADDRESS DID NOT 
‘TIME OUT BUT CORRESPONDING 

; VECTOR ADDRESS DID TIME OUT 


:BBSE 
; SERRPC, TESTDV, TESTVC, 
;A DEVICE ADDRESS DID_NOT 


: TIME OUT BUT NO UNITS HAD 
j APPROPRIATE DRIVE TYPE 


PC 
BASE ADDRESS 
: SERRPC, TESTDV 


SEG 00S2 


CERHADO MACY11 30(:i0%6) 2i-DEC-77 
CERHAD.P 11 2i-DEC-77 12:46 

2533 
eso4 
e$3$ 
2536 
2$37 
2538 =f 
e539 O0e716 O00es4 
es40 
es41 
ese 
eS43 
es44 
es4s 
es46 
es47 
es4s 
es49 
ess0 
essl 
2SSe 
ess3 900001 
ess4 000002 
esss 000 
2SS& 000010 
e557 000020 
esse 000040 
esss 000100 
2560 0002 
2561 0004 
2eSbe 000400 
2563 001000 
es64 002000 
eSéS 004000 
2566 010000 
2567 000 
2568 040900 
eSé9 100000 
2$70 
e$71 

i 
es74 00000e 
se Raaate 
2es77 00010 
2S7 002000 
es793 004000 
2580 010000 
e561 020000 
esse 0490000 
ecs3 100000 
ess4 
esses 
ese 
2587 
esse 


BOS 


13:06 PAGE SY 
ERROR POINTER TABLE 


ss FEESEESREEEESEEE SRE S ESS SESS SS SE HES ESSE SS SSH SHAE RSF SESF HS FEES SHS 


:RH70 REGISTERS 


RPVEC: 254 


;RP VECTOR ADDRESS 


MTTTTTT TTT TTT TT TIT Tt ttt itd 


:HORD COUNT REGISTER (RHWC) 


;EACH BIT IS CALLED BY BIT NUMBER 


S AOORESS REGISTER (RHBA) 
CH BIT IS CAL 


LED BY BIT NUMBER 


uSiz ;UNIT SELECT (BIT #0) 
USe= 2 !UNIT SELECT (BIT #1) 

Us4= 4 [UNIT SELECT (BIT #2) ; 
BAI= 10 !BUS ADDRESS INCREMENT INHIBIT (BIT #2) 
PAT= 20 LINVERT PARITY 

CLR= 40 :CLEAR (BIT #5) 

IR= 100 ; INPUT READY (BIT_#6) 

OR= 200 :OUTPUT READY (BIT 87) 

MPE= 400 {MASS BUS PARITY ERROR (BIT #8) 
MDPE= 400 ; MASS PARITY ERROR (BIT #8) 
MxXF= 1000 :MISSEO TRANSFER ERROR (BIT #9) 
PGE= 2000 {PROGRAM ERROR, (BIT #10) 

NEM= 4000 :NON EXISTANT MEMORY (BIT #11) 
NED= 10000 !NON EXISTANT DRIVE (BIT #12) 
PE= 20000 !UNIBUS PARITY ERROR (BIT #13) 
WCE= 40000 {WRITE CHECK ERROR (BIT #14) 
DLT= 100000 :DATA LATE (BIT #15) 

;CONTROL AND STATUS REGISTER 3 (RHCS3) 

IPCKO= 1 ; INVERT PARITY CHECK BIT 0 
IPCki= 2 !INVERT PARITY CHECK BIT 1 
IPCKe= 4 SINVERT PARITY CHECK BIT 2 
IPCK3= 10 !INVERT PARITY CHECK BIT 3 

IE= 100 ; INTERRUPT ENABLE (BIT #6) 

DBL= 2000 ;DOUBLE WORD BOUNORY (BIT #10) 
WCEEW= 4000 !WRITE CHECK EVEN WORD (BIT #11) 
WCEOW= 10000 :WRITE CHECK ODD WORD (BIT #12) 
DPEEW= 20000 ;DATA PARITY ERROR EVEN WORD (BIT #13) 
OPEOW= 40000 !DATA PARITY ERROR ODD WORD (BIT #14) 
APE= 100000 ZADDRESS PARITY ERROR (BIT #15) 


;DATA BUFFER REGISTER (RHOB) 


CERHADO MACY11 30: 1046) 
CERHAD.F11 


21-DEC-r7 


100000 


pps 


100000 


do0002 


010000 


2i-DEC-77 
12:48 


COS 


13:06 PAGE SS 


ERROR POINTER TABLE 


;EACH BIT IS CALLED BY BIT NUMBER 


SESE AEESEFEAS SASS ESSSESHSAS SSSA LSSH SSE LSSSS HHS FSSFRS RS HFEF SASS 


:RPOY REGISTERS 


5 EEEEEESE ELSE LESSEE SPSS ELA E SSS ELE SEES EE EELS E LEAS SERS SEES SESS 


;CONTROL AND STATUS 1 REGISTER. 
GO= 1 

lE= 100 
ROY= 200 
Alb= 400 
Al7= 1000 
PSEL= 2000 
DVA= 4000 
MCPE= 20000 
TRE= 40000 
sCc= 100000 
;STATUS REGISTER ‘RHDS1) (#01) 
OFFS= 1 

BOT= 

DFFe0= 2 
DIGB= 4 

GRV= 10 
DL64= 20 
DE1= 40 

VV= 100 
DRY= 200 
DPR= 400 
PROG= 1000 
LBT= 2000 
WRL= 000 
MOL= 10000 
PIP= 20000 
ERR= 40000 
ATA= 100000 


gpnon nPSISTER #01 (RHER1) —_ 
ILR= 2 
RMR= fy 
PAR= 10 
FER= 20 
WCF = y 
ECH= 100 
HCE= 00 
HCRC= 400 
ACE= 1000 
IARE= 2000 
WLE= 000 
DTE= 10000 


(#00) 
G0 (BIT #0) 
i INTERRUPT _ ENABLE (BIT #6) 
Ain ORDER R UNIBUS BITS (BIT #8) 
‘HIGH ORDER UNIBUS BITS \JIT #9) 
;PORT SELECT (BIT #10) 
DEVICE AVAILABLE (BIT #1 
ima DARTTY ERROR (GIT #12) 
TRANSFER ERROR (BIT #14) 
SPECIAL CONDITION (BIT #15) 
/DRIVE FORWARD S“/SEC. (BIT #0 
iDRAYRING OF TAPE CBiT #1) 
DRIVE FORWARD 20"/SEC. (BIT #1) 
{DRIVE TO_ INNER  GAVRO BAND (BIT #2) 
5 oO PENENCE Lees THAN 64 (BIT #4) 
DIFFERENCE FOUaLS 1 (BIT #5) 
VOLUME VALID (BIT #6) 
‘ORI ADY (BIT #7) 
‘ORI SENT (BIT #8) 
PRO (BIT #9) 
‘LAST SECTOR TRANSFERRED (BIT #10) 
HMBTTE LOCK (BIT 811) | 
‘POSIT NING OPERATION. Ty PROGRESS (BIT #1 
(BIT #13: 
POMPOS TT ERRORS (BLY a 
as ) 
SS OTENTION ACTIVE. (BIT #15 


oos4 


DOS 


SERHADO MACYI1 3011046; 2i-DEC-77 13:06 PAGE S& 
CERHAD. P11 21-DEC-77 12:48 ERROR POINTER TABLE 
2645 620000 OPI= 20000 ; OPERATION INCOMPLETE (BIT #12) 
2646 040000 UNS= 40000 :DRIVE UNSAFE (BIT # 
eH" 100000 OCK= 100006 :DATA CHECK ERROR (‘Bit 1S) 
ee45 sMAINTAINABILITY REGISTER (RHMR)( #03) 
2651 000001 OMD= RATATAT RARE MODE (BIT #0) 
= o000e MCLK= 2 :MAINTAINABILITY CLOCK (BIT #1) 
se25 BE 895 MINX= 4 :MA NTAINA itty INDEX (BIT #2) 
Sees Sones MAbs 20 i MAINTATNA ILE eee ete es, Ot 
2656 900040 MWR= 40 :MA NTAINA ILITY WRITE (BIT #5) 
eo5° 001000 DTSY= 1000 :MAINTAINABILITY SYNC DETECTED (BIT #9 
e653 ;ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 
2661 900001 ATO= 1 ;DEVICE O (BIT #0) 
2b6e oo0cc0e ATl= 2 ; DEV CE (BIT #1) 
2663 000004 AT2= 4 : DEV cE (BIT #2) 
2664 000010 AT3= 10 ;DEVIC (BIT #2) 
2665 000020 AT4= 20 ; DEVICE 4 (BIT #4) 
PbE6 900040 ATS= 40 ; DEV e 5 (BIT aS) 
2667 990100 ATb= 100 i DEV & (BIT #6) 
cbe8 500200 AT?7= 200 EVIC (BIT #7) 
2670 ;DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
2671 :EACH BIT IS CALLED BY BIT NUMBER 
2672 :ORIVE TYPE REGISTER (RHDT) Nae) 
2673 :EACH BIT IS CALLED BY BIT NUMBER 
eed ;LOOK-AHEAD REGISTER (RHLA) (#07) 
2676 000001 EXTl= 1 sEXTENSION 1 (BIT #0) 
2677 000002 EXT2= 2 ;EXTENSION 2 (BIT #1) 
5er5 590010 EXTig= 10 EXTENSION 4 (BIT #9) 
= : u 
2680 000020 EXT20= 20 i EX TENSTON 5 (Bit #4) 
2681 0040 EXT4O= 40 EXTENSION 6 (BIT #5) 
2682 00010 SCl= 10c : OR COUNT FIELD O (BIT #6) 
2683 000200 5Ce= 00 :SECTOR COUNT Ft LD 1 (BIT #7) 
Sea 504000 Scio= 100 SSECTOR COUNT FIELD 3 (BIT #9) 
s J 
2686 oog2000 2485 Fete 3 SR E SUNT FLELB 4 (Bit #10) 
coe? 004000 Ths 4060 TRACK FIELD 1 (BIT #11) 
= 5 a 
e6 838800 Teka: 30080 ‘Tack FLED § (Bit #13) 
2690 040000 TRK10= 40000 ; TRACK FIELD 4 (BIT #14) 
cbak 190000 TRK20= 100000 ; TRACK FIELD 5 (BIT #15) 
Seas ;ERROR REGISTER #2 (RHER2) (#10) 
co3s 900001 WCUs t CUARENT- SISK Ef UNSAFE (BIT #0) 
= # 
td iefetotet fee 6G PRET PACK CNSAPE cart ws) 
2692 000010 CSUs 10 HRITE ERT TCH UNSAFE (BIT #3) 
2639 o00c020 MSE= 20 sO OTOR SEQUENCE ERROR (BIT #4) 
2700 005040 TOF= 40 : TRANSITIONS DETECTOR FAILURE (BIT #5) 





CERHADO MACY11 30(104%6 e: ge -"> 13:06. PAGE 57 
CERHAD.F11 21-DEC-"F le: ERROR POINTER TABLE 


900190 ; TRANSITIONS UNSAFE IT_ #6) 
‘ ;FAILSAFE ENABLED (BIT #7) 
; WRITE DY 
de a a HEAD SELECT 
;NO_HEA SEL Ee Tren 


0000 
100000 100000 
REGISTER (RHOF) (#11) 
000001 ; OFFSET 


Vee 


000040 


cO0200 ; OFFSET 
002000 ;HEADER C 
004000 ECI 4 ;ERROR_ CORRE 
C10000 ;FORMAT BIT 


—--+4 wee er-O 
MfwM~ ~ 


00000: 


1 ;800 BPI 
900306 sNORMAL - 2 FRAMES PER WORD 


;DRIVE TYPE REGISTER 


SLYPR= 2000 ;SLAVE PRESENT (SIT #10) 
CH7= 10000 ;CHANNEL 7 (BIT #12) 


;DESIREO_ CYLINDER ADDRESS (RHCA) (#le) 
;EACH BIT IS CALLED By BIT NUMBER. 


;CURRENT CYLINDER ADDRESS (RHCC) (#13) 





CERHADO MACYI1 30« 1046) 
CERHAD.Pil 2i-DEC-" 


e770 900001 


77 100000 
2778 


2i-DEC-77 
12:48 


FOS 


13:06 PAGE $8 
ERROR POINTER TABLE 


;EACH BIT IS CALLED BY BIT NUMBER 


;SERIAL_NUMBER REGISTER (RHSN) ‘8 
;EACH IS CALLED BY bIT NUMBER 


;ERROR REGISTER #03 ‘RHER?) (#15) 


PSU= 1 

VUF = 

UWR= 10 

PRE= 20 

ACL= 40 a 
OCL= 00 i 


5 FESR EREREKE EEE AEF REFS SERRE S ESS 


14) 


;PACK SPEED UNSAFE ‘oe ~ 
: VELOCITY UNSAFE (BIT 8 


B 
:ANY UNSAFE EXCEPT READ/L.<ITE (BIT #3) 


!DISK PACK ROTATION ERROR (BIT #4) 


;AC LOW (BIT #5) 


Pe ee ee ee ee ee ee ee eee 


GOS 
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CERHAD.F Li 21-DEC 12:48 ERROR POINTER TABLE Seq oose 
2795 

2798 oo0000 CSis 0 ; CONTROL STATUS i 
27393 o0000e wes Fe :WORD COUN 

2800 BODG0s ~ : BUS ADDRESS 

58 : 885 Be DAs 6 Oe e thes SP er oR, TRACK 
2803 000010 CSe= 10 ; CONTROL STATUS 2 
2804 000012 DS= le :ORT — STAT 

esos 000014 ER1i= 14 ;ERROR 1 

2806 000016 AS= 16 iBT TENTION SUMMERY 
2807 000020 LA= 20 ‘LOOK A HEA D 

2808 o000ee DB= ee :DATA BUFFER 

28cs 000024 MR= e4 j MAINTENANCE REGISTER 
2810 oo0026 OT= 26 — TYPE 

esil 900030 SN= 30 : SERIAL NUMBER 
ble ele) OF = 32 : OF FSET 

2813 000032 TCs 32 ; TAPE ROL 

28i4 000034 OoC= 34 ;DESTRED CYLINDER 
esis 00036 CC= 36 URRENT CYLINOER 
2Bié 000040 ERe= 40 ERROR S 

2817 oo004e ER3= 42 !ERROR 3 

2218 000044 ECl= 44 :ECC 1 

2613 oooo4e ECe= 46 :ECC 2 

2820 

Sees BUFFERS 

; BU 

2823 003000 . = 3000 

2824 003000 BUFEW: 

e825 003000 op0000 BFEVEN: O 

2826 903002 BUF OW: 

2827 003002 o0042e2 BFODD: .BLKW 274. ; BUFFER 

cose sSTARTING ADDRESS OF REGISTERS 

2830 OO4O4E 172040 RSCS1: 172040 ;RS ALONG 

2831 oO40SO 176700 RPCS1: 17670 :RP ALONE 

2632 o0405e 172440 ‘TMCS1: 17244 :TM ALONE 

2833 O04054 176300 MIXCS1: 1763C0 :MIXED SYSTEM 

2834 o040Sé 9000000 PRESENT: 5 

es3s 

283t 

2637 


2626 -SBTTL REGISTER ADDRESSES 


~ 


ii 


004106 


904124 
304134 


CERHADO MACYI1 30: 1046. 
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900909 


900000 
090000 


lontan teh antart a 


2i-0EC-77 
:48 


12:4 


13:06 PAGE 60 
PEGISTER ADDRESSES 


FALMER ARE THE 1/0 REGISTERS FOR THE DEVICE UNDER TEST - 
The ‘gilt WILL BE FILLED WITH ADDRESSES DEPENDING ON WHAT DEVICE IS oN 
THE C CASE OF A MIXED SYSTEM THAT IS WITH MORE THAN ONE RH DEVICE 

TNE FIRST ONE THAT EXISTS IN THE FOLLOWING LIST WILL BE PICKED 
: AND _ THE OTHERS WILL NOT BE USED. 

1) RSO3 

32) So4 

3) RPOY,S,6 

4) TMO2 

:THE CONTENTS OF RHCS1 WHICH IS THE BASE ADDRESS IS 

:172040 FOR RSO3/04 

:176700 FOR RPOY,5,6 

i 172440 FOR T 
THE REST OF SHE LOCATIONS WILL BE FILLED BY THE PROGRAM 

RHCS1 0 ; CONTROL | ft STA ATU 

RHWc: 0 D COUN 

RHBA: OO Bus ADDRESS 

RHFC: ;FRAME COUNT 

RHDA: :DISK ADDR Pes 

RHOST: 0 : DESIRED SECTOR’ TRACK ADDRESS 

RHCS2: O ONTROL AND STATUS 2 

RHDS1: 0 ; ORIVE stat 

RHER1: O : ERROR 

RHAS: 0 ART ENTION SUMMARY 

RHCC :CHECK CHARACTER 

RHLA re) ; LOOK-AHER 

RHOB 0 TA BUFFER 

RHMR: 0 sarnTarRBILITY 

RHDT 0 ve Ty YPE 

RHSN 0 RR IAL NUMBER 

RHTC: ; TAPE CONTROL 

RHOF: FESET 

RHCA 0 ‘BES ED CYLINDER ADDRESS 

RHCCA: O :CURRENT CYLINDER ADDRESS 

RHER2: 0 ;ERROR #2 

RHER3: O !ERROR #3 

RHEC1: 0 !ECC POSITION 

RHEC2: O !ECC PATTERN 

RHBAE: 0 ; BUS ADORESS , EXTENSION 

RHCS3: 0 sCONTROL AND STATUS 3 


;FUNCTION EQUATES 


tesa ; TABLE OF FUNCTIONS FOR RHCS1 THEN “GO” BIT HAS TO BE SET 
NOPERA: 0 ;NO OPERATION 
















~ 


pore 
399999 


SF TUoe 


Toe 


3998 


OO4644 


OO4646 


oo4650 
9eS O0046Se 
2326 O046S4 


2931 O046S56 


23937 004672 


e941 04674 
es4e 004677 
2 004702 


Se Aes YY iies 30‘ 10463 
CERHAD .P 


IOS 


2i-DEC-77 13:06 PAGE 61 
21-DEC-77 12:48 PEGISTER ADDRESSES 
ooooce UNLOAD: 2 ; UNLOAD (STAND BY) 
ooo006 RECALI: 6 : RECALIBRA 3 
000010 DCLEAR: 10 :DRIVE CLEAR . 
000012 RELEAS: le :RELEASE (DUAL-PORT OPERATION) 
0030 SERCH: 30 ; SEARCH COMM MMAND 
000050 WRCHEK: 50 WRITE CHECK DAT 
Se WRCHDT: Se WRITE CHECK CE ADER AND DATA 
000060 WRIDAT: 60 WRI TE DATA 
Obe WRIFOR: 62 !:WRITE HEADER AND DATA (FORMAT) 
000070 READAT: 70 : REA’ 
000072 REFOR: 72 :READ HEADER AND DATA 
oo00004 SEECOM: 4 :SEEK COMMAND 
00001 OFSETC: 14 [OFFSET COMMAND 
000016 RETCL: 16 :RETURNTO CENTERLINE 
000022 PKACK: 22 :PACK ACKNOWLEDGE 
000020 READIN: 20 ; READ IN 
000: REWIND: 6 : REWIND 
000076 REVRED: 76 ; REVERSE READ 
000030 SPACFD: 30 SPACE FORWARD 
000066 REVWRT: 66 : REVERSE’ WRITE 
oo0000 ILLEGL: .WORD 0 ;COMPUTED ILLEGAL FUNCTION 
sDATA BUFFER FOR READ WRITE 
000106 WRFROM: 'BLK 70. ;WRITE FROM THIS BUFFER 
000106 REINTO: * BLKW 70. READ INTO THIS BUFFER 
oo000c COMND: 0 ; STORE COMMAND FOR COMMAND ROUTINE 
000000 COMAND: O : STORE COMMACD 
000006 NOGO: oO ;IF ZERO GO IS TO BE GIVEN IN COMMAND ROUTINE 
:IF ONES GO IS NOT TO BE GIVEN IN COMMAND ROUTINE 
:USED IN PGE TEST 
oo0000 WATO 0 :IF ZERO WAIT FOR BIT TO SET 
:IF ONES WAIT FOR | BIT TO RESET 
USED IN WAIT T 
oo0000 WRTBIT: O :BITS NOT WRIT TEN INTO 
ooo00c SETBIT: O ‘BITS ALWAYS SET 
000000 CLRBIT: O !BITS ALWAYS CLEARED 
-RESERVED LOCATIONS 
ooo0c00 +STNM: O ; TEST NUMBER 
090000 SLAVE: 0 KE LAVE NO. 
oo0o000 IP: 0 ; IPCK NUMBER FOR ERROR PRINTOUT 
000000 SILONM: O :SILO WORD NUMBER FOR ERROR PRINT OUT 
090000 WAITPC: O :WAIT TRAP PC 
00000 WAITRE: O HAT TING FOR REGISTER ADDRESS IN WAIT TRAP 
000000 WAITBT: O :WAITING FOR BIT IN WAIT TRAP 
; TABLE FOR ATTENTION BITS 
*ATTENTION TABLE 
001 oGe2 004 ATABLE: BYTE 1,2,4,10,20,40, 100,200 
510 020 040 
196 200 


SES C069 
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2947 

2948 004704 172040 
2949 004706 176700 
2950 004710 172440 
2951 OO47l2e 176300 
2952 

2953 

2954 004714 o00000 
2955 004716 000254 
2956 004720 00001 
2957 OG47e2 co000e 
2958 

2953 

2960 004724 900010 
2961 

2962 

2963 

2964 004744 900010 
2965 

2966 

2967 004764 O00004 
2968 004766 000000 
2969 004770 9900000 
2970 004772 000000 
2971 004774 000000 
2972 004776 000000 
2973 005000 o00000 
2974 05002 000000 
2975 005004 oo0000 
2976 

2977 

2978 

2979 ooso0— 900000 
2980 005010 000000 
2981 oO05012 000000 
2982 

2983 005014 op0010 
2984 

e985 005034 ocoD0010 
2986 

2987 

2968 

2989 

2990 005054 oDD010 
2991 

2992 

2992 005074 oD0010 
2994 

2995 

2996 005114 oo0000 
2997 005116 d90000 
2998 

2999 

3000 005120 000010 
3001 


2i-DEC-77 


12:48 
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REGISTER ADDRESSES 
j RESERVED LOCATIONS FoR UNIT SELECT 


BASEAD: 172040 RS BASE ADDRESS 

BASPAD: 175706 :RP BASE ADDRESS 

BASTAD: 172440 :TU BASE ADDRESS 

BASEMAD: 176300 ;MIXED SYSTEM BASE ADDRESS 
BASEVC: O ;RS VECTOR 

BASP: 254 iRP VECTOR 

BAST: 1 ;TU VECTOR 

BASM: 2  MTXED VECTOR 

- TABLE FOR GIVEN BASE ADDRESSES 

ASGIVA: .BLKW 8. 

TABLE FOR GIVEN VECTOR 

&scIvv: .BLKW 8. 

NMRH 4 ;NUMBER OF RH 

BASINX: O ! INDEX FOR BASE 

WORKBS: 0 :WOR BASE 

WORKNM: © :WORKING NUMBER FOR RH 

WORKVC: © :WORKING VECTOR FOR 

FORBAE: 0 ;TOTAL NO. OF RE FOR Bae CALCULATION 

LOPCT: OQ !LOOP COUNT FOR 200 STA 

LOPCT1: O : LOOP COUNT FOR 210 START 

USEVEC: O :USE VECTO 

GIVE: 0 ;IF ONES OPERATOR WILL GIVE ADDRESSS 

UNIT: OQ UNIT UNDER 

ST200: O ALL ONES INDICATE STARTING FROM 200 
TESTING TABLE 


+SRHNO: -BLKW 8B. ;RH NO TO BE TESTED IN ORDER OF TEST 


TSDEVICE: -BLKW 8. ; DEVICE A og TESTED IN my ol TEST 


;1=RSO03 /LA 2@=RSO4 4=RPO4,S,6 SINGLE PORT 


‘tos RaPad: S- sy DUAL PORT Sos Smoz 
TSUNIT: .BLKW 8. 
TSSLAV: .@LKW 8. 


TSTOTL: O ;TOTAL NO. OF UNITS TO BE TESTED 
TSINDX: O ; INDEX TO ONE UNDER TEST 


TSVEC: .BLKW 8. ; VECTOR ADDRESS IN ORDER OF TEST 


;UNIT NO. TO BE TESTED IN ORDER OF TEST 


;SLAVE NO TO BE TESTED IN ORDER OF TEST 


CERHADO MACY11 30/1046) 
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H 

3093 005140 
3004 

3095S 

3006 005160 
3007 

300 

300$ 005200 
3010 

3011 

301e o0S2e0 
3013 

3014 

3015 

3016 

3017 
3018 

3019 dO0S5240 
3020 O00Se4e 
3021 

302e 

3023 

30e4 

30eS o052e44 
30e6 O0Se4%6 
3027 

30e8 005250 
30e9 O00SeSe 
3030 O00SeS4 
3031 

303e o0S2e56 
3033 005260 
3034 O0S26e 
3035 O0Se64 
3036 

3037 OO0S2b6 
30 005270 
3033 00Se7e 
3040 005274 
3041 

2042 005276 
2043 

3044 

3045S 

3046 S3 
3047 005310 
3048 005320 
2049 005322 
3050 005324 
3051 005326 
3052 

3053 

3054 

3055 

2056 

3057 

3058 


900010 
000010 
000010 


000010 


900000 
000000 


000000 
000000 


000000 
000000 
000000 


172040 


ooo004 
ooo0004 
000004 


000006 
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REGISTER ADDRESSES 


TSGAE: 


TSCS3: 


TSCOMD: 


TSBASE: 


ATTENT: 


TOTALAT: 


PERMXV: O 


PERNUM: 


DEVPNT: 
VECPNT: 
LTRY: 


TESTVC: 


- BLKW 


-BLKW 


. BLKW 


- BLKW 


0 


- WORD 
- WORD 
WORD 


;WORKING TABLE 


- BLKW 
BLKW 


oo0o00o: 


0 


0 
0 


0 
PERMANENT TABLE 
2040 


4 
4 


KOS 


;RHBAE ADDRESS IN ORDER OF TEST 
;RHCS3 ADDRESS IN ORDER OF TEST 
;COMMAND ADDRESS IN ORDER OF TEST 


;BASE ADDRESS IN ORDER OF TEST 


;ERROR FLAG 
; IF ZERO" WILL TYPE HEADER 
;IF ONES WILL NOT TYPE HEADER 


; ATTENTION BIT 1 PRESENT UNIT 
TATAL ATTENTION BITS 


; TEMP STORAGE 
; TEMP STORAGE 


;RS BASE ADDRESS 
1 ¢ Baas ADDRESS 


ASE ADORESS 
;MIXED BASE ADDRESS 


RS VECTOR ADDRESS 
:RP VECTOR ADDRESS 
:TU VECTOR ADDRESS 
:MIXED VECTOR ADDRESS 


;NUMBER OF RH 
;BASE ADDRESS 10 BE TESTED 


NUMBER OF FOUND 
STORES BASE ADDRESS OF TEST DEVICE 
i STORES VECTOR OF TEST DEVICE 

THE ABOVE TWO wh BEFORE ANY 
i DEVICE IS FOUND 


t DoRSO3 fag akenee a 


‘ Soose= =S INGLE PORT RPO6, 24022=DUAL PORT RPOG 





00be 





LOS 
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CERHAD.P11 21-DEC-77 12:48 REGISTER ADDRESSES SES O0b3 
3059 ;142010=TUL6 
3060 


3061 005330 900000 000001 ROpoOs TYPNT: .WORD 0,1,2,3,4,20020,24020, 20021, 24021, 20022, 24022, 142010 


306e 005336 00e 
3063 005344 Oe4%0e0 Oe00el OJe40el 
3064 005352 OeO0ee OerO0ee 142010 


3065 005360 000000 POINTT: O ;POITER TO ABOVE TABLE 
3066 00536e O00014 NTYPNT: 14 :NUMBER OF ABOVE TYPES 
30 005364 000000 TMPSLV: O ; TEMPORARY SLAVE COUNTER 
San 005366 oo0004 FDEVIC fy erie ~ Capes heeleatiaae EVItEF UND, 1=TU, 2= RP AL 
353 tia i3s Rp E NOLE Me =RS04, “5 Rs84 
3073 005376 000004 FUNTIN: “BLK ‘ I RUNBER” FO FOUND 
te ve 
35 BB ey BBB BB4 FV CFR BLK 4 ay E SURO 
s07% = G00004 FRASER BLKW 4 } + RSE, RODRESS FOUND 
see : LK 4 
3078 446 sreteereth FSLAVE: :BLKW 4 sTULGE SLAVE RUNBER F CUNO 
2075 OOSYS6 GOGGo% FORIVA: -BLKW : VE R ADDRESS FOUND 
: -BL 
aay BBENSE SBEBR: ress: cE G5 SEBRbee FOB 
3083 o0550&6 oo0000 TSTUNT: O ; TOTAL NUMBER OF RH FOUND AT 
3084 :ENO OF SIZE 
3085 005510 000000 WORUNT: O :SHME AS ABOVE BUT TO BE 
3086 :DECREASED AT END PROGRAM 
3088 oossSi2 oo00000 VECTOR: O VECTOR UNDER TEST 
14 17774 LERA : 17774 LOW ERROR 180 R 
3883 tet 16 17774 Rabb 15554 3H x ERROR ® ESoress REG 
3091 o0055e0 177744 MERE 177744 HER ORY SYSTEM ADDRESS REG 
3092 000114 PORE Se 114 ;PARITY ERROR VECTOR FOR 70 





CERHADO MACY11 3611046) 
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3095S 


rato 
D 
N 


WWI WWW WW WWW) WWW WW) WWW WWW WWW) WWW WWW) WWW WWW WW WWWW WWW) WWW) Ww) 
rey, ryt ee oe a ah a ee at he 
HAF LOM HOBONONL OWE OOD VON LOU ODO VON LW ODS URE OS OD Ie 


Pll 


oossee 
00S530 
00SS32e 


005536 


pussae 


ooss4#4 


0060e4 
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012737 
000402 
005037 


001001 
000402 


177777 
oosole 


001100 
001140 


oooo04 
000000 

00 
044050 


O4S064 
00Se4e2 


oosole 


177776 
000036 


MOS 
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REGISTER TEST 
eecin: may + BEFtETER, TES’ 
BR START 

BEGINe: CLR s$T200 


STBRTi «oinrTraL1ze THE COMMON TAGS 
:SCLEAR THE COMMON TAGS (SCMTAG) AREA 


R 
MOV #SCMTAG, Ri ;;FIRST LOCATION T CLEARED 
Cok cae: —_ >:CLEAR MEMORY Moc ar Sn 
SNE en ee P BACK IF NO 
MOV as ACK, SP. tise UP THE STACK POINTER 
sitet A resco eveoe #IOTVEC OT VECTOR FOR SCOPE ROUTINE 
nov a350,3 SN dhe. Y§ 
MOV ENT “VECTOR FOR ERROR ROUTINE 


MOV He pAon.e roeees 5°, deve 


RAPV veg ; TRAP {VECTOR FOR TRAP CALLS 
RAPVEC+2; LEVE 


MOV ry 
mov Fe Ng aPuRV dy ar, FAILURE VECTOR 
CLR STIMe i CEVE ALIZE NUMBER OF ITERATIONS 


CLR SESCAPE aes 7 ERnon Pe ON BROR ADDRESS 
MOV 8. SLPAOR $y NITIALIZE LOOP ADDRESS FOR SCOPE 


MOV 8. RR DRESS 
;SIZE FOR A HARSUARE SUT cH ibe IF He EREOR, OOP #9 is 
:E Pee on 
MOV 8649S, JSERRVEC Ser OR VECTOR 
nov sb SHA, ISPLAY ::AND A NORD ISPLAY AY v REGISTER 
CMP #-1 3SuR i BND TO REPERE ; Rice RARDWA RE SWR 
BNE 66S ;}BRANCH IF NO TIMEOUT TRAP OCCURRED 


:AND T 
BR 65S HBR cn iF F NO TIMEOUT 
64S: nov #65S, (SP) :SET UP FOR TRAP RETURN 
65S: MOV #SWREG,S _siPOINT TO SOFTWARE SWR 
MOV eDTePREG. BISPLA 
66S: MOV (SP)+, JBERRVEC Y  JRESTORE ERROR VECTOR 
MOV ;SET PROCESSOR STATUS TO 0 
MOV s200> aaTRAPVEC+2 : TRAP PRIORITY = 4 
MOV JBRPVEC, RO ;GET RP VECTOR 6 ADDRESS 
MOV SREVECT’ (RO)+ THIS IS FOR UNTIMELY INTERRUPTS 
MOV #340, (RO) : RPO ale? SERVICE ROUTINE 
JSR PC, d8STKINT SINITILIZE THE T 
CLR PRITEM 3CL EAR FOR ERROR MESSAGE PRINTOUT 
TST aeF IRST :IS THIS FIRST TIME ROUND 


BNE 1$ ;BRANCH IF N 
BR 2s 


SES 0064 


NOS 
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CERHAD.P1il 21-DEC-77 12:48 INITIALIZE THE COMMON TAGS SEG O06S 
000137 006102 1$: IMP @#SND1 
Boe03s bea730 O0004e OOOO4E es: CMP 1 OD al ;ARE WE IN QV OR AUTO ACCEPT MODE? 
006040 001420 BEQ SNOD1 :IF YES, SKIP HEADER 
O0604e 104401 006050 TYPE 68$ 55 TYEE ASCIZ STRING 
00604%6 000415 BR 7$ ;GET OVER THE ASCIZ 
006102 i -ASCIZ <¢15><12>/CERHADO *AH7O CTRLR DIAG/ 
0061 012737 177777 OOSe4e SND1: MOV #-1, deF IRST ;NEXT_ TIME DO NOT GIVE HEADER 
BOE1 10 012737 037732 000114 MOV #PARITY, J#PARE7O ;PARITY VECTOR 
006116 Qle737 OO00340 000116 MOV ore .e aaPARE70+2 ;PRIORITY 7 
O06ie4% O1e737 037574 .000004 MOV IEOUT, J#ERRVEC ; TIMEOUT VECTOR 
006132 012737 000340 Od00006 MOV $340, a¥ERRVEC +E ;PRIORITY 7 


eee ter ie ee 


T i. SIZE_FOR RH DEVICES 
THIS TEST BETERNING WHICH RH DEVICE IS ON THE SYSTEM 
aR. 3 SYSTEM HAS MORE THAN ONE RH DEVICE THEN ONLY ONE OF 


G_ TEST 
THE ONE THAT WILL BE {Use IS THE FIRST ONE THAT IS PRESENT 


Y THE TEST yOmKs IS AS FOLLOWS: - 
has bs he rns He Cc NTROL AND_STATUS REGISTER 1 

RS BY A + i UC 490. IF _IT_ RESPONDS THEN IT IS 
ASS LOCATIONS FOR THE I/O REGISTERS ARE 
FILLED WITH THE AP PROPIATE ADDRESSES. 
ML ay THE DRIVE TYPE REGISTER IS CHECKED TO HAVE GOOD 


OOO ODDODODODDODDODODDYYINYYYNNNNET OOO OOO rTrruMuiu ale 4 
BOLT LOW O00 LEN LWVKODDNGCU LON OODITMNEWUV-OOOITU LOD | 


WWI WIG WW GI WWW WW WWW WWWIWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
Ce me ee ee ee ee ee ee ee ee ee ee Be ee ee ee ee ee ee 


(2.2.8 2.2 2 8 8 8 2 2 2 2 8 2 2 8 8 8 8 8 
ar) 


tee ee ee eee re eee rere re re rere es 1) 


3 ALUES. 
3 YF THE TST INSTRUCTION TRAPS TO A NON EXISTANT VECTOR 
| THEN A SIMILAR ATTEMPT IS MADE TO A RP CONTROL AND STATUS 
00 REGISTER 1. 
3201 THEN aim IS TRYED. ‘ 
ene THEN A MIXED SYSTEM WITH MORE THAN ONE RH DEVICS*IS TRYED. 
3204 ° 5p ESHER EEA AERA AAR AER REAR AE KEKE RAE KEKE RARRA ERE REEE EERE HERES 


RHADO NACYI1 30\104) 21-DEC-77 13:08, PAGE §7 
cERHAD OP 2i-DEC-7> 15:48" SIZE FOR RH DEVICES SEG o066 


3205 006140 900004 TST1: SCOPE 
3206 006142 012737 O00001 xcol21e MOV #1, S$TIMES :;00 1 ITERATION | 
3207 006150 005737 o0S0le TST $T200 :tS IT A 200 S78 
3208 906158 OoL4i3 BEG eS :BRANCH IF NOT oo START 
3209 1 12700 ooSes6 MOV #PERRS, RO j POINTER, TO MOVE 9 WMROS FROM 
3210 O06i62 O12e701 O00011 MOV Ri NUMBER TO MOVE 
3211 906 168 012702 ocs300 MOV SCEGPNT R2 : POINTER TO MOVE 9 TORDS TO 
3212 0061 012022 1S: MOV (RO)+, (R2)+ :FILL WORK TABLE 
3213 006174 00530: DEC R1 
3214 006176 001375 BNE is ;BRANCH IF 9 NOT DONE 
3218 006200 000137 o06S00 = IMP be isiz 
3217 OY 104401 oO06e212 TYPE 6S$ i+ TYPE eects STRING 
3218 006210 000417 BR 4$ :GET OVER THE ASCIZ 
3219 -:65$: .ASCIZ <«15><12>/HOW many’ RH TO BE TESTED / 
3220 006250 64s: 
3221 CO6250 104401 o06e56 TYPE 67% ;; TYPE ASCIZ STRING 
3222 006254 o0040e BR 3 ::GET OVER THE ASCIZ 
3223 --67$: .ASCIZ <15><le>7 
3224 006262 66s: 
3225 O06262 104410 RDOCT 
3226 006264 011637 005320 MOV (SP), LTRY ;GET NUMBER OF RH TO. BE TESTED 
3227 006270 012637 O0Se50 MOV (5P)4+,. TMPO : WORKING NUMBER OF R 
3228 006274 012737 000001 oOdsese MOV #1, TMP !RH NUMBER TO BE TYPED 
3629 006302 005000 CLR RO’ : INDEX TO WORKING TABLE 
3231 006304 3S: 
3232 006304 104401 006312 TYPE 69S ; i TYPE ASCIZ STRING 
3534 mens et 69S ORSCIZ rst l2>/TyPE Bast CE pRESS OF Rn Noe 

“-. : - < »< / 
3235 006350 66s: 
3236 006350 013746 oDses2 MOV TMP1,-(SP) 
3237 006354 104405 TYPDS 
3238 006356 104401 006364 TYPE 718 ;; TYPE ASCIZ STRING 
3239 006362 O00402 ois.  nectz 20$ is !IGET OVER THE ASCIZ 

ss 8 ‘ < < sx FF 
3241 006370 ods: 
3e42 006370 104410 RDOCT 
3243 006372 012660 005300 MOV (SP)+,DEVPNT(RO) =FILL WORKING TABLE WITH BASE ADDRESS 
3244 006376 104401 006404 TYPE 738 i; TYPE ASCIZ STRING 
ee a oe 73% BRsciz res 2>/TYPE vektsR ADDRESS BF RH AO, 

ze 4 ‘ < »< oF 4 
354g Bpewts 013746 ocSese res: 

MOV TMP1,-(SP) 
3e49 O064SO 104405 TYPDS 
0064S2 104401 oD0200 TYPE , CRLF 

3251 OO064S6 104410 RDOCT 
3252 O06460 012660 005310 MOV (SP)+,VECPNT(RO) ;FILL WORKING TABLE WITH VECTOR ADDRESS 
3253 006464 005720 TST (RO)+ ;AbD 2 TO 
3e54 006466 005237 o0S2s2 INC TMP 1 :GET NEXT RH NUMBER 
3255S 006472 005337 9O005250 DEC TMPO :COUNT DOWN RH TO BE TESTED 
3256 006476 001302 BNE 3$ :BRANCH IF ALL NOT DONE 
3258 ;RO WILL HAVE DEVICE POINTER, R1 WILL HAVE VECTOR POINTER 
3259 O06500 012700 005300 SETSIZ: MOV #DEVPNT, RO :DEVICE POINTER 
3260 006504 012701 005310 MOV #VECPNT;RI : VECTOR POINTER 


CERHADO MACY11 30/1046) 
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3261 006510 005037 
3262 
3263 S14 Ris? a2 


74 302 
3372 Ooeses bus07? 


3e3e 006656 001437 
3294 006660 000137 


08 
3309 006744 0137062 
10 006750 013762 


006770 9000403 
006772 104146 


WWWWWWWWWWW 
WWWWWWWWWWO) 


11 

le 006756 012737 
13 OO6764 O 

14 

1S 

ig 
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00S322 
010S06 
00$3e4 


S325 
176565 


BBS0E8 


005324 
o0000e 


17S300 
005330 
o08014 
000001! 
175266 


010532 
010000 


010524 
00$364 
005364 

175204 
002000 
000007 
010$3e 


005364 
040000 


00$32e 
005364 


006772 
176336 


000004 


001126 


17Sele 


175214 
001126 
001126 


005364 


175116 


COS446 
ooooo4 


Tl 


SSe: 


1$: 


es: 


SSé: 
3$: 


= 


16S: 


oul 
Aw 


178: 


73: 


938: 


CO6 
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CLR TFOUND ;WILL BE USED AS POINTER 

MOV SS4, ERRVEC : 10 FOUND VECTOR TO REDUCE LTRY 
a ; 

MOV (RO)+, TESTDV OF DEVICE TO BE TESTED 
MOV (R1)+ pTESTVC :V CT R TO BE TESTED 

TST aTEsTbv IME OUT ON DEVICE BASE 

;IF NO TIME OUT OCCURS THEN DEVICE IN TESTOV IS PRESENT 
iow FILL ALL REGISTER AOORES TABLE 
MOV : Hest R3 LOCATION 
Moy = RGSS in OBR PPRORBORESS 
ADD #2°R4 MENT ADDRESS BY 2 
one os ‘eo F 22 NOT DONE. 
CL Saucse ET GNrt NUMBE 
MOV STYPNT,POINTT  ;POINTER TO DRIVE TYP 
Mov #14,NTYPN POINTE OF oBiee TYPE 
CMP #1,NTYPNT ;I 
BEQ eg: HP bor’ $6 TU BRANCH 
MOV SRHOT SBDDAT EAD DRIVE T 
MOV Re GET mandeh FOR OT Not BONE 
SUB 1 PN Re T OT TO DO 
ASL Re ;MULTIP PLY Re BY 2 
CMP TYPNT(R2), SBDDAT’ IS DRIVE TYPE FOUND 
BEG les DRIVE TYPE FOUND SO BRANCH 

RH T NON XISTANT DRIVE 

ea  pugpineage 2p Not SET, DRIVE TYPE FOUND SO BRANCH 
A DEVICE HAS NOT BEEN FOUND 
bmp sss RNDEVICE HAS NOT BEEN FOUND SO BRANCH 
TRYING THE TU16 DRIVE TYPE 
ALR TMPSLV LAVE O 
MOV TMPSLV, IRHTC :MOVE SLAVE NUMBER IN TAPE CONTROL 
MOV JRHDT , $BDDAT tREAD DRIVE TYPE 
BIT BSLVPR, SBDDAT :1S SLAVE PRESENT 
CMP #7, TMPSLV ;1S 7 DONE 
BNE 17$ :BRANCH IF 7 DONE AND NONE FOUND 
IMP Sse 

INC TMPSLV ;GET NEXT SLAVE 
MOV aTRE, @RHCS1 


i CLEAR CONTROLLER ERRORS 
XT SLAVE 


BR E 

7:) DEVICE” HAS BEEN FOUND’ SAVE SLAVE 

Mov pore -GET NO OF RH FOUND X2 FOR INDEX 
THPSt U FSLAVE (R R23} 


MOV 
-A DEVICE. HAS BEEN FOUND TEST VECTOR 
MOV $"ER BE EC TERE —E OUT VECTOR TO REPORT ERROR 
TST Sfeet TVC :TRY TIME our ON VECTOR 
iA VECTOR EXIS STS SO CONTINUE 
A DEVICE BASE ADDRESS DID NOT 
:TIME OUT BUT ITS CORRESPONDING 


BR TOs 
ERROR 146 


SEG 0067 


CERHADO MACY11i 30( 1046; 
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3317 
3318 

3333 ooe774 00000 
3321 rte 000767 


see Gurtee Bieres 
es 

33e3 007 137 

3330 007042 013762 

333i 00 013762 

3332 007 

3333 Bee 00S26e 


3339 007114 011662 


3340 007120 062716 
3341 07124 Olebbe 
3342 

3343 007130 000511 
3344 007132 O2e7be 
3345 007140 O01424 
3346 007142 022762 
3347 007150 001420 
3348 007152 0227 
3343 007160 001414 
3350 007162 22762 
3351 007170 001410 
3352 007172 O2e7be 
Be} Guess 
3363 Oo7s10 bolle 
3356 007212 Oi2762 
3357 007220 013746 
3358 007224 062716 
3359 007230 O1ibée 
3360 007234 062716 
3361 007240 Olebbe 
3363 007244 900443 
3364 007245 O2e7b2 
3365 007254 001420 
3366 007 022762 
3367 007264 001414 
3268 007266 022762 
3369 007274 001410 
3370 007276 O227b2 
3371 007304 001404 
3372 007306 022762 
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oo000e 
000003 
oocco4 
ooocos 
000006 


005476 


000010 
000011 
000012 
000013 
000014 


005366 
00$376 


005436 


005366 
ooS4Sé 


005366 
005366 
005366 
005366 
005366 
005366 
oos4S6 


005366 
005366 
005366 
005366 
OOS 366 


=——— 


10$: 


11$: 


les: 


13$: 


DO6 
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; VECTOR ADDRESS TIMED OUT 
:HIT CONTINUE TO REPEAT THIS 
pom 

HALT 

aA Ice AS B FOUND’ A O CEC TOR RESPO PONDS SO STORE RESULTS 

Vv H 3 

ipy = FG cho, Re. Ane oF RH Pou ids INDEX 

MOV NTYPN eviccrei Tyit. Terur 13a") 5,6, 7=RP; 

MOV JRHCS2 FUNITN(RE) ; 

BIC 0177770, FUNI ITN NCR) Keer UNIT sant 

MOV Teepe er VERT R( Re) as 

MOV TES TOV FOASEAL ) :vEcT OROOR ESS 

MOV FO FRHNM(R :RH NUMBER Xe MINUS ONE 

ASR FRHNM (Re) oe NUMBER MINUS ONE 

INC Re) : Riki if 

CMe a MPDEVICCR2) 

MOV scrnorm, repped ncn ER "AODRESS FOR TU 

MOV TEST mt 

ADD tS) pane (Re SP SAVE ae Is BAE FOR TU 

MOV P) ( : 

ADD P) iSEYE 86 5 is CS3 FOR TU 

MOV tsp) s FCS3(R2) : SAVE BobR Ese 

BR SS1 

CMP #2, FDEVIC(R2) ;IS IT RP DUAL PORT 

BEQ le :BRANCH IF RP FOUND 

CMP #3.FDEVIC(R2) 1S IT RP 

BEQ 12 :BRANCH IF_RP FOUND 

CMP 84,FDEVIC(R2) IS IT RP DUAL PORT 

BEQ 12 :BRANCH IF RP FOUND 

CMP #S.FDEVIC(R2) IS IT RP 

BEG 12 :BRANCH IF RP FOUND 

CMP @6,FDEVIC(R2) :IS IT RP DUAL PORT 

BEQ le ; BRANCH I IF RP FOUND 

CMP 87, FDEVIC(R2) j 1S IT Re 

BNE 13 

MOV SCMNDRP , FORIVR(RE) NSRIVER NO ODRESS FOR RP 

MOV TESTDV, -(SP) ; BASE 

ADD #<2%20'>. (SP)  :218T ADDRESS IS BAE FOR RP 

MOV (SP) FBAE (Re) :SAVE BAE 

ADD +22ND ADDRESS is CS3 FOR RP 

MOV E852 ecsacre) :SAVE CS3 FOR R 

BR SS1 

CMP B10,FDEVIC(R2) ;IS IT RSO3/LA 

BEQ :BRANCH IF RSO3/LA 

CMP @11,FDEVIC(Re) :1S IT RSOY/L 

BEQ 14S :BRANCH IF RSOY/L 

CMP wle,FDEVIC(R2) IS IT RSOY 

BEQ 14S :BRANCH IF RSOY 

CMP #13,FDEVIC(R2) 31S IT RSO3/L 

BEQ 143 :BRANCH IF Ré03- L 

CMP B14,FDEVIC(R2) :IS IT RSO3 


E06 
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Pli 21-DEC-77 12:48 Tl SIZE FOR RH DEVICES 

73 007314 o01016 BNE 1S$ ANCH IF NOT RSOZ 
3353 007316 O12762 O41466 COSHSe 14S: MOV aCMNDRS, FORIVR (RE) - DRIVER ROORESS FOR RS 
33 007 013746 005324 MOV TESTDV, - (SP sBASE ADDRESS 
3376 007330 O6e716 000030 ADD aczei2:> CSP) : 13TH ADORE SS IS BARE FOR RS 
3377 007334 Ollébe o0S466 MOV (SP) FBAE/R2) ; SAVE. BAE FOR R 
3378 007340 062716 oO0000e ADD (SP) 14TH RODRESS 15 CS3 FOR RS 
33739 007344 Olebbe O0S47E MOV Cee e ecsacre) SAVE CS3 FOR RS 
3380 007350 O00401 BR S51 : CONTINUE 
3381 0073Se 000000 15S: HALT :PROGRAM ERROR 
3383 :NOW TYPE RESULT 
3384 
3385 007354 $S1: 
3386 007354 104401 G0736e2 TYPE 65S ; i TYPE ASCIZ STRING 
3387 007360 o00406 BR 645 ::GET OVER THE ASCIZ 
3388 -:65$: .ASCIZ <15><12>/0N RH NO” 
3389 007376 64S: 
3390 007376 O16246 005436 MOV FRHNM(R2),-(SP) ;TYPE RH NUMBER 
3391 007402 104405 TYPOS 
3392 007404 104401 oO7412 TYPE 675 ;; TYPE ASCIZ STRING 
3393 007410 O004i1 BR bes i GET OVER THE ASCIZ 
3394 --67$: .ASCIZ BASE 
3395S 007434 66s: 
3396 007434 O16246 005426 MOV FBASEA(R2),-(SP) ;TYPE BASE ADDRESS 
3397 O0744O0 104402 TYPOC 
3398 OO7442 104401 007450 TYPE 69S $s TYPE ASCIZ STRING 
3399 007446 O00404 BR bes :GET OVER THE ASCIZ 
3400 --69$: .ASCIZ / FOUND/ 
3401 007460 8$: 
3402 007460 O22762 O00001 0105366 CMP #1,FDEVIC(R2) ;IS ITT 
3403 007466 001020 BNE 1$ s BRANCH IF NOT TU 
3404 007470 104401 007476 TYPE 71% ;TYPE ASCIZ STRING 
340S 007474 000410 BR 70$ ‘GET OVER THE ASCIZ 
3406 ui71$: .ASCIZ 7 TU16 AT staves’ 
3407 007516 >ds: 
3408 007516 O16246 oD0S44E MOV FSLAVE(R2),-(SP) ;TYPE SLAVE NUMBER 
3409 O07522 104405 TYPDS 
3410 007524 600137 010324 IMP 6$ 
34i1 ; THE FOLLOWING TYPES OUT 
s4ie :THE DEVICE AND REDEFINES 
3413 :FDEVIC: 1=TU, 2=RP DUAL PORT 
3414 + gone SINGLE PORT 
Sule iSens0a/L ar Re3 RSO3 

i$ ZL ZL 
3417 007530 O22762 o00002 oos3zbE 1S: CMP #2,FDEVIC(R2)  :IS IT RPO& DUAL PORT 
3418 007536 OO1016 BNE 2s : BRANCH re NOT RPOG DUAL PORT 
3419 907540 104401 ocO7SHE TYPE 738 :;TYPE ASCIZ STR 
320 007544 o00411 73% as a: Nt, pont? se" OVER THE Agciz 
o-* : - 

3422 007570 od¢: 
3423 007570 000137 010324 IMP 6$ 
3424 007574 O22762 OO00003 o0S366 2s: CMP 83,FDEVIC(R2)  ;IS IT RPOG SINGLE PORT 
ee Soret TBE coveiz ee Shes ine ale Termine NE PORT 
3427 007610 000411 BR oy GET OVER THE ASCIZ 





5 
::75$: .ASCIZ / RPO& SINGLE PORT 
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007634 


010026 


=e OCONNN OMS SCWWW Wr-O0 
Omen tron Oreo re SR eo 


000410 


000837 


000411 


000513 
Oee7be 


000404 


ooo4sS4 


000403 
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i2:48 
010324 
oooco4 


oo000e 
007664 


010324 
ooo000s 


000003 
007734 


000006 


000002 
010004 


000007 


000003 
0100Se 


000010 


000005 
0101ee2 


000011 


000004 
010162 


900012 


000004 
010ee0 


005366 
00S366 


005366 
005366 


005366 
005366 


005 366 
005366 


005366 
005366 


005366 
005366 


005366 
00536 
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63 
#4,FDEVIC(Re) 


4 
#2, FDEVIC(R2) 
77s 


63 $ 
* RPOS DUAL PORT’ 


6$ 
aS, FDEVIC(Re) 


#3, FDEVIC(Re) 
74s 


ik 28 
7 RPOS SINGLE PORT, 


6$ 
i nina 


#2, FDEVIC(R2) 
als 


os 33 
7 RPOY DUAL PORT/ 


6$ 
#7, FDEVIC(R2) 


#3, FDEVIC(R2) 
83S 


es : 
7 RPOY SINGLE PORT, 


6$ 
#10,FDEVIC(R2) 


aS, FDEVIC(R2) 
ass 


4$ 
7 RSO3-LA/Z 


6$ 
#11,FDEVIC(R2) 


1 
#4, FDEVIC(R2) 
87s 


63 
“7 RSOY-L/ 


6% 
#l2,FDEVIC(R2) 


#4 FOEVIC(R2) 
eos 


8s 
7“ RSOY/ 


:I1S IT RPOS QUAL PL?T 
;BRANCH IF NOT RPOS DUAL PORT 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


31S IT RPOS SINGLE PORT 
;BRANCH IF NOT RPOS SINGLE PORT 


;: TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


;1S IT RPOY QUAL PORT 
;BRANCH IF NOT RPOY DUAL PORT 


;: TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


;IS_ IT RPOY SINGLE PORT 
;BRANCH IF NOT RPO SINGLE PORT 


3; TYPE ASCIZ STRING 
-GET OVER THE ASCIZ 


;IS IT RSO3-LA 
;BRANCH IF NOT RSO3-LA 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


31S IT RSOY-L 
;BRANCH IF i4OT RSOY-L 


3; TYPE ASCiZ STRING 
;;GET OVER THE ASCIZ 


;IS IT RSOY 
;BRANCH IF NOT RSOY 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


GO6 
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Su8 BIBSSe  ooouse ne a 6$ 
3487 010230 0227 000013 O0S366 138: CMP @13,FOEVIC(R2) ;IS IT RSO3-L 
3488 010236 1013 BNE 14S :BRANCH IF Nui RSO3-L 
3489 010240 012762 oo0000S o0S5366 MOV aS. FDEVIC(R2) 
3490 010048 104401 9010254 TYPE als ;; TYPE ASCIZ STRING 
3491 O010eS2 d00404 BR 30§ ::GET OVER THE ASCIZ 
34 --31$: .ASCIZ 7 RSO3-L/ 
3493 010264 ds: 
Suge O OBee posses 000014 005366 14S BAP ore, FDOEVIC(R2) ;IS IT RSO3 
3496 pigssé 101 BNE ayy. t BRancH rP NOT RSO3 
we 010276 016762 g00905 005366 MOV. eS, FDEVIC(R2) oie hecek nee 
3938 818396 bBo44 BR a3g® tIGET over tue Bet fz 
3500 --93$: .ASCIZ / RSO3/ 
3501 010320 Sd: 
3502 010320 o00401 BR 6S 
3503 010322 900000 S$: HAT :PROGRAM ERROR 
3504 010324 63: 
3505 010324 104401 910332 TYPE aces i TYPE ASCIZ STRING 
3506 010330 oo0411 BR aus OVER THE ASCIZ 
3507 --95$: .ASCIZ <15><12>/AT UNIT ‘AGRE 
3508 010354 64s: 
3509 010354 O162e4%6 005376 MOV FUNITN(R2),-(SP) ;TYPE UNIT NUMBER 
3510 010360 104405 TYPDS 
351i 610362 104401 010370 TYPE 97% ; : TYPE ASCIZ STRING 
3512 010366 O00411 BR Ses °:GET OVER THE ASCIZ 
3513 --97$: .ASCIZ VECTOR’ 7 
3514 o10412 56s: 
3515 O10412 o16246 oOs416 MOV FVECTR(R2),-(SP) ;TYPE VECTOR 
3516 O16416 1044Ge TYPOC 
3517 010420 104401 o10426 TYPE 998 ;; TYPE ASCIZ STRING 
3518 010424 o0040e BR $8$ ::GET OVER THE ASCIZ 
3519 --99$: .ASCIZ <15><«1l2>/7 / 
3520 010432 86s: 
352i 010432 104401 O10440 TYPE 101$ 3; TYPE ASCIZ sTRINe 
3522 010436 Goo4oe BR 100$ ::GET OVER THE ASCIZ 
3$2e3 --101$: .ASCIZ TYE camer / 
3524 O10444 {O0s: 
3e5e 

“UPDATE TFOUND 

3527 010444 062737 o00002 ox0s32e2 ADp #2, TFOUND ;GET READY FOR NEXT DEVICE 
3529 -ALL UNITS DONE” IF LTRY BECOMES ZERO YES ALL DONE 
3530 O104S2 005337 005320 bEC ; REDU CE DEVICES LEFT TO TRY 
3531 010456 001402 BEG bee :BRANCH IF ALL COMPLETE 
353¢ 010460 900137 oo6si4 a IMP Sse tALL NOT DONE 
3534 010464 013746 005322 S32: MOV TFOUND, -(SP) :GET TWICE NUMBER OF RH FOUND 
3535 010470 O06216 ASR (SP) :DIVIDE BY 2 
3536 010472 011637 oosso6 MOV (EP), TSTUNT | 
3537 010476 012637 O05510 MOV {SP)+, WORUNT 
3538 010502 000137 010610 IMP TSTe ; JUMP TO NEXT TEST 


3540 :A RH TIMED OUT SO TRY NEXT UNIT OR END TRYING 


HOG 


RHADO MACY11 30(104%6) e2i-DEC-77 13: ~ 2 PAGE 73 
SERHAD-P11 21-DEC->> 15:48 SIZE FOR RH DEVICES 
, SSH: ¢ LTRY ;RH TIMES OUT SO DECREASE RH TrPED 
ejh BiBePs sBPggs COsze° BE is iBRANCH Te ALL “DONE 
43 Bidesd Beai35 BBsde is: Mp ORS Att Bee ee SPB Re NUMBER OF RH FOUND 
Jue - ja DRIVE a BID _NOT MATCH SO TRY NEXT 
48 Bi 82§3 B4ESS5 efatckel sires 223: Dee ater . i SERRE ace? NONGER OF DRIVE TYPES TRIED 
3549 010536 901402 nensin BEG if : BRANCH TF ret DONE 
3ee7 Bi Beug B9e535 racks 1$: INC Cet NEXT UNIT NO. 
3552 010SS0 O1e777 949900 173302 nov i sarees at ERROR 
Se Hed eek boot LD ee RG Shas 
1 01 + 

4 E RANG H N 
see? 8} 56 S84 i9s 006570 Mm 5, Bran ake? Ss One NEXT UNIT NO 
35539 0610690 104147 2s: ERROR 147 ;DEVICE ADDRESS 7210, NOT TIME 
32e9 ened QUT BUT NOUN ive" eee. 
3562 010604 000137 o10S06 IMP ss4 
3563 
3564 
3565 
3566 
3567 
er 
3256 I E-5-5-5-tal -tahalahahahatahabetcl-$-tabrict-4-5-tal-5-1-$-delahechahalahahahalahahahehahalehahehahebehiahdiehdieiehdieialeiele 
3971 : #TEST Re ae UNDER TEST ‘- 
3575 if AND IS THE FIRST TEST AFTER THE-END OF THE PROGRAM 
3574 FEEREFSESSHEELES ESE KKAESSLEE SE RERAERERS ESSE SHE RRREAE SEES DE EEE ES 
3575 010619 oo0004 +472: SCOPE 
3576 9106ie 012737 O00001 oO0121e MOV IMES ;;D00 1 ITERATION 
3577 O10620 012737 037574 900004 MOV stteour JSERRVEC TIMEOUT VECTOR 
3978 010626 612737 o00340 900006 MOV #340, J8ERRVEC+e :PRIORITY 7 
3580 O10634 013746 oOOSSIO MOV WORUNT, - (SP) :;GET WORKING RH NUMBER LEFT 
3581 010640 013702 905506 MOV TSTUNT. Re :GET TOTAL NO OF RH FOUND 
3582 010644 i6260e Sus (epy+ Re ;NO_ OF RH TO BE TESTED 
sees Gi8ees [ere o1cese tee es ioe obi" starne, ere 
3585 010654 od0040e2 BF 643 pe OVER THE Thectz 
3287 10662 sige papas Secale 
3588 O10662 104461 010670 . TYPE 67% :; TYPE ASCIZ STRING 
325839 O10666 OO04i0 BR 663 GET OVER THE ASCIZ 
3590 --67$: .ASCIZ ¢15><12>/TESTING BH NOZ 
3531 010710 tés: 
3592 010710 O16246 ocos436 MOV FRHNM(R2),-(SP) ;TYPE RH NO. 
3233 010714 104495 TYPDS 
3595 10716 104401 010724 TYPE 69% ; TYPE ASCIZ STRING 
35% 910722 oO60410 SR tas :GET OVER THE ASCIZ 


I06 
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CERHADO MACYL1 30( 1046) aie lade 
CERHAD.P 11 21-DEC-77 12 UNIT UNDER TEST SEG 0073 
ate — TS St -ASCIZ - USING 
3 1 4 3 
3599 O10744 104401 o107Se TYPE 71% :; TYPE ASCIZ STRING 
3200 010750 o00404 R >0$ ::GET OVER THE ASCIZ 
332 oio7ee Pt ge! lm 
3603 010762 O162e46 oOs426 MOV FBASEA(R2),-(SP) ;TYPE BASE ADDRESS 
3604 010766 i0440e TYPOC . 
3605 010770 Oe2e76e o00001 o0s3b6 CMP @1.FDEVIC(Re) ;IS IT TU 
3606 010776 O01017 BNE 1$ :BRANCH IF NOT TU 
3607 O11000 104401 011006 TYPE 73% :;TYPE ASCIZ STRING 
3608 G11004 oO00410 BR 2s !:GET OVER THE ASCIZ 
3609 4i73$: -ASCIZ 7 TUL6 AT SLAVE’ 
3610 011026 POS: 
3611 611026 O162e46 oOs44E MOV FSLAVE(R2),-(SP) ;TYPE SLAVE NUMBER 
3612 011032 i044os TYPDS 
3613 011034 900467 BR 6S 
3614 011036 Oee76e o00002 s0S3b6 1S: CMP #2,FDEVIC(R2)  ;IS5 IT RP DUAL PORT 
3615 011044 OO! BNE 25 :BRANCH IF NOT RP DUAL PORT 
3616 O1104 104401 o11054 TYPE 753 :; TYPE ASCIZ STRING 
3617 O6110S2 o00410 BR ous ::GET OVER THE ASCIZ 
3618 -.75$: .ASCIZ / RP DUAL PORT / 
3615 011074 >4g: 
3620 011074 000447 BR x} 
3621 011076 OGee762 oO00003 oOS3b6 2s: CMP @3,FDEVIC(R2) ;IS IT RO SINGLE PORT 
3622 011104 001014 BNE 3$ :BRANCH IF NOT RP 
3623 011106 104401 011114 TYPE 775 :: TYPE ASCIZ STRING 
3624 Ollile OOO410 BR 6$ ::GET OVER THE ASCIZ 
3625 --77$: .ASCIZ / RP SINGLE PORT/ 
3626 011134 obs: 
3627 011134 000427 BR 6S 
2628 011136 O22762 O00004 oO0S3bE 3S: CMP #4,FDEVIC(R2) ;IS IT RSOY 
3629 011144 001007 BNE 4g :BRANCH IF NOT RSOY 
3630 011146 104401 011154 TYPE 795 :; TYPE ASCIZ STRING 
3631 0611152 o00403 BR 78S ::GET OVER THE ASCIZ 
3632 ia79S: -ASCIZ 7 RSOY 
3633 011162 >83: 
3634 O11162 oo0414 BR 6S 
3635 O11164 Oe2762 o0000S oos3ate 4s: CMP aS,FDEVIC(R2) ;IS IT RSO3 
3636 011172 001007 BNE 53 :BRANCH IF NOT RSO3 
3637 011174 104401 olie2ce TYPE 81S :; TYPE ASCIZ STRING 
3638 O1l2e00 090403 BR 80$ ::GET OVER THE ASCIZ 
3639 --81$: .ASCIZ 7 RSOZ 
3640 011210 6ds: 
3641 Oli210 opo0401 BR 6$ 
Zo4e Oliei2 oco000 S$: HALT ;PROGRAM ERROR 
sue pista 104401 211222 - T 83% TYPE ASCIZ STRING 
0 YPE ssTY N 
3646 Oll220 OO04i11 BR 62g ::GET OVER THE ASCIZ 
3647 -:83$: .ASCIZ <15><12>/AT UNIT’ AUMBER/ 
3648 011244 bs: 
3649 011244 O1624%6 005376 MOV FUNITN(R2),-(SP) ;TYPE UNIT NUMBER 
3650 Olleso iod44os TYPDS 
3651 011252 104401 o11260 TYPE ass :; TYPE ASCIZ STRING 
3652 611256 o00411 BR Aug ::GET OVER THE ASCIZ 
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00S416 
oo000e4 
004060 
00S426 


ooco0de 


005376 


008476 
O4S064 
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040306 
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JO6 


UNIT UNDER TEST SE% 0074 
aj 958: .ASCIZ - VECTOR 

OV FVECTR(F2),-(SP) ;TYPE VECTOR 

TYPOC 

MOV aes rw T 20 

MOV HC$1 COUN BASE LOCATION 

MOV POASEALRE) RS :GET BASE ADDRESS 
7$ MOV R tFILL PROPER AODRESS 

ADD ae. Re ; INCREMENT BY e 

DEC R3° :COUNT DOWN 

BNE 7$ :BRANCH IF 20 NOT DONE 

MOV FUNITN(R2),UNIT ;UNIT NUMBER 

MOV FVECTR(Re), VECTOR - VECTOR 

MOV FSLAVE (Re); SLAVE LAVE NO 

MOV FDRIVR( Re) » COMND DRIVER ADORESS 

MOV FBAE(R2) , RHBAE ie ADDRESS 

MOV FCS3(Re)’RHCS3 ;CS3 ADDRESS 

CLR PRITEM 


5 ERER ER EEE EEE EERE ELLE ELEE EEE EERE EERE SEE EEE EEE EES ESET ESE EE EEE 
TEST 3 Bi? BANG RHCS1 


TEST LOADING AND READING OF ALL POSSIBLE BITS 
IN wy! eee Ds ER 
USE A PATTERN OF WALKING 1°S (1,2,4,10 ETC) 
A ALK °"S (<2 -S ETC) 
H REIMCPETDVASBIT12!BIT10! ROY!GO BITS WILL NOT BE WRITTEN INTO 
ILL ALWAYS T 


ores 


ee ee Ty 


40 Oo 


W 
L LEARED 
OR 8 ARE SET FOR DEBUGGING 
T RHCSe BIT #S) WILL BE 
GIVEN — SYNCS ON THE CLEAR 


SIGNAL. 
hay *- aateapaaiemneanaeaaics ier vlan bite cae tsi: inti 
SCOPE 


$673; 
MOV “STACK, SP ;RESET STACK 
MOV #3, a8TSTNM :SAVE TEST NUMBER 


JSR PC, @a#CLDISK ;GIVE RH iNT TIA, 128 
;SETUP UNIT NUBER 
; CLEAR RHC AND FUNCTION BITS IN RHCS1 


MOV Bees Te eG OVA! OTT 18282 10! ROY 262. WRTBIT ;SCI!TRE!MCPE!OVA!BIT1Le!B 
MOV #RDY!OVA,SETBIT ;RDY'DVA ARE BITS ALWAYS SET 
MOV weITIO, CLRBIt :BIT1O0 ARE BITS ALWAYS CLEARED 


OOK OC tee 
ms 
4 
4 
x 


weet eres 


KO6 
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CERHAD.P11 21-DEC-77 12:48 73 BIT BANG RHCS1 
3709 
3710 -FLOAT 1'°S THRU THE RHCS1 REGISTER 
3711 O114SO 012737 011474 001110 MOV aes S$LPERR ;SET LOOP ON ERROR ADDRESS 
3712 O11456 O1e70S oo0001 MOV S GET TING READY TO FLOAT A ONE 
3713 O1146e 010537 OOl11e4 1$: MOV Re’ $GODAT : STAR ART WITH DATA : ne 
3714 O11466 042737 176201 001124 BIC aS¢' TRE! MCPE! Ova! BIT1esB1T10!ROv!GO SGDDAT ;CLEAR BITS NOT WRITTEN 
3715 011474 032737 O41400 OO114O 2S: BIT #BITL4!BITS!IBITS,SWR -ARE SWITCHES 14 OR 9 OR 8 SET 
3716 011502 001403 BEQ 3$ ‘BRANCH IF ANY ONE SET 
3717 611504 O0S2777 oo0040 172356 BIS #CLR, JRHCS2 :GIVE CLEAR FOR SCOPE 
3718 ;SYNC_IF IN DEBUG: 
3719 011512 013777 001124 172340 3S: MOV SGDDAT,SRHCS1 ;WRITE RHCS1 REGISTER 
3720 011520 017737 172334 O01126 MOV JRHCS1;$BDDAT ;READ RHCS1 REGISTER 
3721 011526 3737 OO46S4 001124 BIC CLRBIT,$GDDAT ;CLEAR ALWAYS CLEARED BITS 
3722 011534 053737 OO46S5e O0112e4 BIS SETBIT,$GDDAT ;SET ALWAYS SET BITS 
3723 011542 023737 001124 OOl1le6 CMP SGDDAT;S$BDDAT ;TEST 
3724 011550 001404 BEQ 4§ :BRANCH IF GOOD 
3725S 011552 913737 OO4060 O01122 MOV RHCS1, SBDADR :GET REGISTER ADDRESS 
3726 011560 104137 ERROR 137 :ONE WAS BEING FLOATED 
3727 :THRU RHCS1 REGISTER 
3728 [ON READING RHCS1 BACK 
3729 :IT DID NOT CONTAIN WHAT 
3730 :WAS EXPECTED. 
73 011562 900241 4$: CLC :CLEAR CARRY 
? 011564 006305 ASL RS :GET 1 LEFT 
3733 011566 103335 Bcc 1$ :BRANCH IF 16 NOT DONE 
3735 ;FLOAT A ZERO THRU RHCS1 REGISTER. 
3737 011570 012737 911614 001110 MOV #63, SLPERR ;SET LOOP BACK POINT. 
3728 011576 012705 177776 MOV #177776. RS :GET READY TO FLOAT A ZERO 
3739 011602 010537 001124: Ss: MOV RS SGDDAT *GET READY TO WRITE DAT 
3740 O116068 042737 176201 001124 BIC ast! SOOM ICPE!DVAIGETISTBITIOS ROY! GO eeDDAT CLEAR BITS NOT WRITTEN 
3741 011614 032737 O41400 OO114O és: BIT sBIT1L4!BITS!BITS, SWR ,ARE SWITCHES 14 OR 9 OR 8 icy 
3742 011622 001403 BEQ :BRANCH IF ANY OF | THE 1RBOvE SET 
3743 011624 012777 oD0040 172236 MOV #CLR, IRHCS2 :CLEAR FOR SCOPE A 
3744 :SYNC_IF IN DEBUG 
374S 011632 013777 001124 172220 73: MOV SGDDAT,@RHCS1 ;WRITE INTO RH’XA. 
3746 011640 617737 172214 OOl11e6 MOV @RHCS1,  $B0bRt :READ RHCS1 
3747 O11646 053737 OO46S2 001124 BIS SETBIT, SGDDAT ;SET BITS ALWAYS SET 
3748 011654 043737 904654 O01104 BIC CLRBIT, SGDDAT :CLEAR BITS ALWAYS O 
3749 Oll662 023737 001124 001126 CMP $abD8r. SBDDAT TEST 
3750 011670 001404 BEQ 8s ;BRANCH IF GOOD 
3751 011672 013737 OO4OB0 oO01122 MOV RHCS1, SBDADR :GET REGISTER ADDRESS 
3752 011700 164137 ERROR 137 :ZERO WAS BEING FLOATED 
3753 ; THRU RHCS1 REGISTER 
3754 3 ON READING IT BACK IT 
3755 ;DID NOT CONTAIN WHAT 
3728 :WAS EXPECTED 
3758 011702 oo0261 gs: SEC 
37539 011704 Oo6i0S ROL RS 
011706 193735 BCS at} 


I 4-5-5-4-Salrlahalahehahatahal-+-1-tab-4-1¢h-tab-t0}-4-+-lalahahehahahehalabalahahehalehahchehaheichalaleialaiaielaieielalaield 
;#TEST 4 BIT BANG RHCS2 


LO6 
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cee :* TEST LOADING AND READING OF ALL POSSIBLE BITS 
3767 :# IN RHCS2 REGISTER 
3768 :#* Br facet RN, ee WBLK NG 3 (1,2,4,10 ETC) 
7 ;* 
583 ie Seale tte NOT BE WRITTEN INTO 
377 i* 
? : po SW ie Es T FOR DEBUGGING 
77 te ies ATH th ERR Panes? 6 BI fiat 3 
3774 7 GIVEN TO AID SCOPE SYNCS ON w THE WOLEAR 
3775 + SIGNAL. 
3728 +s FREKEERSEERSSSESSERAKSSAES RARE SSARAKSSHKKASSAAAEHESFLASES FRESH FESS 
3778 Olizi2 o1270e 001000 MOTH: Sere sctack, sp ;RESET_ STACK 
¢ ce 
3780 011716 012737 O00004 ocoD4eESse MOV #4, Ja TSTNM :SAVE TEST NUMBER 
378¢ 011724 004737 o40306 JSR PC, J#CLDISK kM hy? 
3784 :CLEAR RHWC AND FUNCTION BITS IN RHCS1 
3786 011730 012737 177740 oO46ESO MOV #177750, WRTBIT 5177740 ARE BITS NOT WRITTEN INTO 
3787 011736 012737 OO0100 O04652 MOV #IR,SETBIT :IR ARE BITS ALWAYS SET 
3789 -FLOAT 1’ THRU THE RHCS2 REGIST 
3790 011744 012737 011770 001110 Mov ws '¢ PERR ; SE £00 Ron ERROR ADDRESS 
3791 011752 012705 000001 MOV #1, $,3t 35 LING READY TO FLOAT A ONE 
3792 011756 010537 001124 1S: MOV RS! SGDDAT T WITH DATA 
3793 011762 O42737 177740 001124 BIC #177740, SGDDAT a BITS NOT WRITTEN INTO 
3794 011770 032737 O41400 O01140 es: BIT $a17147 8179! BITS WITCHES 14 OR 9 OR 8 SET 
3795 011776 001403 BEQ 3$ RANeH fF an ONE SET 
3736 012000 052777 oO004O 172062 BIS @CLR, JRHCS2 :S1VE CLEAR F OR SCOPE 
3798 012006 013777 001124 172054 3s: MOV SGDDAT, QRHCS2 ; WRITE RHCS2 REGISTER 
3799 012014 017737 172050 001126 MOV SRHCHe $800A cer aRHCSe REGISTER 
3800 Ole022 053737 OO465e 001124 BIS SETBI BORAT is oe T BITS 
3801 012030 023737 001124 O01126 CMP SGDDAT, SBDDAT pt EST sas ame 
3803 012040 013737 004070 001122 MOV Ricse, S$BDADR :GET REGISTER ADDRESS 
3804 012046 104137 ERROR 137 j ONE Was BEING FL QATED 
3806 5 ON ERDING R Feds Back 
3807 :IT DID NOT CONTAIN WHAT 
3808 :WAS EXPECTED. 
3803 012050 o0024i 4$: CLC :CLEAR C 
3810 012052 006305 ASL RS :GET 1 ONE LEFT 
3811 012054 103340 BCC is :BRANCH IF 1&6 NOT DONE 
3613 ;FLOAT A ZERO THRU RHCS2 REGISTER. 
3815 012056 012737 O12102 001119 MOV 86S SLPERR ;SET LOOP BACK POINT. 
a1 $1583 Bleed? hori Ze cs: Fy RACSCOaR® = HGEY Remby 18 GnvTe Gotan 
3818 612074 042737 177740 001124 , BIC testi S$GDDAT LEAR atts” Now URETTEN INTO 
3819 012102 032737 O41400 OO114O 6&3: BIT sgITIMiB1T9¢BIT8, Shi “ARE SWITCHES 14 OR 93 OR 8 SET 
3820 Ol2ei10 001403 BEG 7$ ANCH IF ANY OF THE ABOVE SET 
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12:48 T4 BIT BANG RHCS2 SEG 0077 
000040 171750 MOV #CLR, ARHCS2 + gLRGR £08 OPE AID TO 
171742 7$: MOV DDAT, @RH :WRITE INTO RH’ XA. 
171756 001126 MOV sepbee" Sep E25 = {READ RCS 
0046Se 001124 BIS SETBIT.$GODAT ;SET BITS ALWAYS SET 
001124 O01126 cn SGDDAT, , SBDDAT i TEST wy  aeee 
904070 901122 MOV RHCS2, SBDADR :GET REGISTER ADORESS 
. ERROR 137 i <Eno WAS BEING FLOATED 
HRU RHCS2 REGISTER 
:ON READING IT BACK IT 
:DID NOT CONTAIN WHAT 
:WAS EXPECTED 
as: SEC 
ROL RS 
BCS S$ 
5 RRKERAERHAAREKAARKARERERLALEA KA LEAAEE SALE FLAFAAE FEF LF LE FFL EFL EEF 
 STEST 5 BIT BANG RHCS3 
# The Rug 8 perSter READING OF ALL POSSIBLE BITS 
i USE A WALKING 1°S (1,2,4,10 ETC) 
i ae ue romans stele? NOT BE WRITTEN INTO 
: AND 1817628117281 1S 28114 TY ef8 “BEB ALWAYS BE CLEARED 
: IF suit H ARE SE UGG ING 
;# THEN CLEAR (RHCSe BIT #5) W 
:# GIVEN TO Malo SCOPE SYNCS ON THE ctEAR 
;* SIGNAL. 
WE ae Es) ne 
MOV #STAC SET 
elotetetet 004656 MOY Harr om BESET eLaoK NUMBER 
049306 JSR PC, J#CLOISK GIVE RH INITIALIZE 
SEINE Me BNBS BuNcTION BITS IN RHCS1 
177860 OO4eSC mov #177660, WRTBIT i 177660 ARE BITS NOT WRITTEN INTO 
Boi eeo 2 dees MOV sor reteitatairzrerrsigitee Pharr YBITS!B1T8!81T7!B1TS!8IT4 ARE BITS ALWAY 
-FLOAT T RH R 
012256 001110 nov? ‘ais atHeni a: TT CBSB on ON ERROR ADDRESS 
900001 - MOV NG READY | To FLOAT A ONE 
regs aaa 001124 : BIC se Seon $GODAT Tag Bite Re ROT” WRITTEN INTO 
041400 O01140 2s: git seITla?B1T9! S178" : Bae AARE. “Any ONE SE 14 OR 9 OR 8 SET 
000040 171574 BIS #CLR, JRHCS2 ere CLEAR F 


:SYNC IF IN besues. 


NO6 
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ER ll 
3877 012274 O13777 001124 171630 35: MOV S$GDDAT,MRHCS3 ;WRITE RHCS3 REGISTER 
3878 Oles02 017737 171624 001126 MOV JRHCS3, SBDDAT ; READ RHCS3 REGISTER 
2e 012310 043737 004654 001124 BIC CL ABT. $apbaT :CLEAR ALWAYS CLEARED BITS 
3880 O1e316 053737 OO046S2 001124 BIS SETBIT;SGDDAT :SET ALWAYS SET BITS 
Se53 Bisse bigs COLeY Oolle6 cre BGODRT, SEDDRT = i TEST 6000 
3883 Ole334 013737 004132 001122 MOV RHCS3, SBDAOR GE REGISTER ROORESS 
3884 Ole342 104137 ERROR 137 8 ING f 
3886 aries a Eaist "Bex 
3887 ¢ CONTAIN 
3888 ie eee ED. 
3889 012344 o00e41 4$: CLC 
38390 012346 006305 ASL RS :GET 1 ONE LEFT 
3831 012350 103335 BCC 1$ :BRANCH IF 16 NOT DONE 
3833 ;FLOAT A ZERO THRU RHCS3 REGISTER. 
3895 012352 012737 012376 001110 MOV #6$, SLPERR ;SET LOOP BACK POINT. 
3896 012360 012705 177776 MOV #177776, RS ; T READY TO FLOAT A ZERO 
3897 012364 010537 001124 S$: MOV RS, SGDDAT ;GET R TO WRITE DATA 
3898 012370 042737 177660 001124 BIC #177660,$GDDAT ;CLEAR BITS NOT WRITTEN INTO . 
3899 012376 032737 O41400 OO1140 6S: BIT SOIT 4: BITS! BITS: SWITCHES 14 OR 9 OR 8 SET 
3900 012404 001403 BEG 7$ ;BraneH a ANY OF THE ABOVE SET 
3301 012406 012777 oo0040 171454 MOV #CLR, IRHCS2 che A. R n’bepuc TO 
3903 012414 013777 1124 171510 7$: MOV GDDAT, IRHC ;WRITE INTO RH’ XA. 
3904 pi S4e2 017737 00125 001126 MOV ae » SEObaT sways RHCS 
3390S 012430 053737 OGO46Se 0601124 BIS oe reTT SGDDAT ;SET BITS ALWAYS SET 
906 012436 043737 OO46S4Y 001124 BIC CLRBIT, $GDDAT :CLEAR BITS ALWAYS O 
3907 O1e4a4 023737 001124 001126 che $cODAT, SBDDAT soy - w eeee 
3909 012454 013737 004132 001122 MOV RHCS3, SBDADR :GET REGISTER ADDRESS 
3910 Ole46e 104137 ERROR 137 :ZERO WAS BEING FLOATED 
3911 : THRU RHCS3 REGISTER 
3912 :ON READING IT BACK IT 
3913 !DID NOT CONTAIN WHAT 
sai2 :WAS EXPECTED 
3916 012464 co0e61 8s: SEC 
3917 O1e466 006105 ROL RS 
3918 012470 103735 BCS ss 
a32¢ 
3921 4 PTT TTTTTIT TIT TTT TTT TTT TTT TTT TTT ttt 
sas6 PT ST 6 BIT BANG RHWC 
3924 :* TEST LOADING AND READING OF ALL POSSIBLE BITS 
3325 :# IN RHWC REG R. 
3926 ;% PATTERN OF WALKING 1’S (1,2,4,10 ETC) 
3927 ;% AND HAL RING o’S (-2,-3,-5 
3926 i IN THIS TEST 0 BITS WILL NOT BE WRITTEN INTO 
39293 x AND O BITS WILL ALWAYS BE SET 
3930 ;# IF SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGING 
3931 :# THEN A RH CLEAR (RHCS2 BIT #5) WIL 
3932 ; GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
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3933 
3934 
3935 
3936 91e47e O50004 
3337 Gie474 Oie706 
335 Giesod 012737 
3940 012506 004737 
3341 
334e 
3943 
3344 OleSle 012737 
3934S OleSeO0 012737 
3946 
3947 
3948 OleSe& 012737 
3949 012534 912705 
3950 O1eS4O 010537 
3951 O1eS44 042737 
39Se OlessSe 032737 
3953 O1eS60 0014 
fas OleSbe 052777 
3956 012570 013777 
3987 OleS76 017737 
3988 012604 053737 
3389 OQOleble 023737 
3960 Olebed O014 
3361 Olebee 013737 
3362 012630 104137 
3963 
3964 
3965 
3966 
3967 O126 o000e41 
3968 O12634 00630 
3969 O1e636 103340 
3970 
3971 
3972 
3973 012640 012737 
3974 O12646 012705 
3975 QlebSe 010537 
3976 Ole6S6 042737 
3977 012664 032737 
3978 Oleb72 001403 
3979 012674 012777 
3980 
2981 O12702 013777 
3982 012710 017737 
33983 012716 053737 
3984 012724 023737 
3985 Ole732 001404 
3986 012734 013737 
cone Ole742 104137 


; 
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001000 
000006 


040306 


000000 
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01esSe 
000001 
001124 
000000 
041400 


004062 


012664 
177776 


O00i1le4 
004062 


OO46S6& 


oo46S0 
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001110 


001124 
001140 
171300 
171264 


001126 
001122 


001110 
001124 
001140 
171166 
171152 


001126 
001122 
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Té 


3% SIGNAL. 
+s ESSSSLSSSAERKESSREEFHY RESEKKSAEKSRAFSASASSAASSLSSFSSHSSFHSHSS EF 
Ste: Roy owsTACK. SP :RESET STACK 
MOV #6, aa TSTNM :SAVE TEST NUMBER 
PC,ae K ;GIVE RH INITIALIZE 
ren cate iGivEp UNIT NUBER : 
*CLEAR RHWC AND FUNCTION BITS IN RHCS1 
MOV #0,WRTBIT ;0 ARE BITS NOT WRITTEN INTO 
MOV #0;SETBIT :0 ARE BITS ALWAYS SET 
-FLOAT 1’°S THRU THE RHWC REGISTER 
Mov #2, SLPERR ;SET LOOP ON ERROR ADDRES. 
MOV #1,R5 :GETTING READY TO FLOAT A ONE 
1S: MOV RS; SGDDAT :START WITH DATA 
2s ad spt tiv! B1TS!8178, SUR Bae MO te i ORs OR 8 SET 
Bis 23.r pony : BRAN Clear FOR NE OBE 
sCLR, ; 
3s MoV ScODAT.aRHWC © SURT TE RMIC REGISTER 
¥ MOV aR AT SREAD RHWC REGISTER 
BIS SETBIt,S$GDDAT ;SET ALWAYS SET BITS 
CMP SGDDAT’SBODAT ;TEST 
BEQ 4 H H IF GOOD 
MOV RHWC , SBDADR :GET REGISTER ADORESS 
ERROR 127 5 ONE BEING FLOATED 
:T RHWC REGISTER 
:ON READING RHWC BACK 
:IT DID NOT CONTAIN WHAT 
:WAS EXPECTED. 
4S: CLC :CLEAR CARRY 
ASL RS :GET 1 ONE LEFT 
BCC 15 :BRANCH IF 16 NOT DONE 
;FLOAT A ZERO THRU RHWC REGISTER. 
MOV #6$, SLPERR ;SET LOOP BACK POINT. 
MOV 8177776, RS :GET READY TO FLOAT A ZERO 
S$: MOV RS, SGDDAT :GET READY TO WRITE DATA 
BIC 80’ SGODAT :CLEAR BITS NOT WRITTEN INTO 
6S: BIT eBtT14!BITS!BITS,SWR ;ARE SWITCHES 14 OR 9 OR 8 SET 
BEQ 7$ : H IF ANY OF THE ABOVE SE 
MOV #CLR, ARHCS2 :CLEAR FOR SCOPE AID TO 
:SYNC IF IN DEBUG 
7$: MOV $GDDAT, IRHWC :WRITE INTO RH’ XA. 
MOV JRHWC, $8DDA :READ RHWC 
BIS SETBIT,SGDDAT ;SET BITS ALWAYS SET 
CMP SGDDAT;$BDDAT ;TEST 
BEQ as :BRANCH IF GOOD 
MOV RHWC, SBDADR 'GET REGISTER ADDRESS 
ERROR 137 :ZERO WAS BEING FLOATED 


BO? 24 


BIT BANG RHWC 


: THRU RHWC REGISTER 


S&S 0079 


CO? 
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CERHAD.F11 2i-DEC-77 12:48 Té6 BIT BANG RHWC SES 0080 
39893 ;O0N READING IT ~— ;" 
39930 :DID NOT CONTAIN W 
3931 :WAS EXPECTED 
3932 
3993 012744 000261 8$: SEC 
3994 Ole746 006105 ROL RS 
3995 Ole7S50 105740 Bcs S$ 
39° 
¢ 
3938 iE Teepegennnnntencensonsnenseesenaennannyeee eee 
3333 ;#TEST 7 BIT BANG RHBA 
4001 ;* TEST LOADING AND READING OF ALL POSSIBLE BITS 
4002 ;* IN_RHBA eeeist ER. 
4003 :% USE A PAT OF WALK te 1’°S (1,2,4,10 ETC) 
4004 ;* AND WALKING O0’S (-e, -S ETC) 
4005 :* IN THIS t STO BITS "uit NOT BE WRITTEN INTO 
40G6 :* AND O WIL WAY’ T 
4007 ;% AND Br FOO Bits” WILL ALWAYS BE CLEARE 
4008 3% IF SWITCH 14 OR 39 OR 8 ARE SET FOR BE BUGGING 
4009 ;* THEN A RH CLEAR (RHCSe BIT #5) WILL BE 
4010 ;* GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
mre} ;# SIGNAL. 
4013 < s RERKERESEREEEEREEEREREERRREEEEEAREREERLRAREERERER ERAS ESSERE SESE SE 
4014 012752 cnooo4 tST7: SCOPE 
4015 012754 (C1e706 001000 MOV eSTACK, SP ;RESET STACK 
me 012760 012737 oOO0007 ocOYESse MOV “7, asaTSTNM : SAVE TEST NUMBER 
4018 012766 004737 O40306 JSR PC, d@CLOISK s GIVE RH INITIALIZE 
4019 :SET UP UNIT BER 
sOSy > CLEAR RHWC AND FUNCTION BITS IN RHCS1 
4022 012772 012737 ocoooo0o oo4EsSO MOV oO .maTasT ;0 ARE BITS NOT WRITTEN INTO 
4023 013000 012737 oOooo00 x04%6Se MOV #0,SETBIT :0 ARE BITS ALWAYS SET 
use 613006 012737 OO0001 oo46sS4 MOV #B1TOO, CLRBIT :BITOO ARE BITS ALWAYS CLEARED 
4026 -FLOAT 1’°S THRU THE RHBA REGISTER 
4027 013014 012737 O13040 001110 MOV 82S, SLPERR ;SET LOOP ON ee AOORE $$ 
4028 013022 012705 9000001 MOV ai, R yet READY TO FLOAT A ONE 
4029 013026 010537 001124 1S: MOV RS $GDDAT ;START WITH DATA 
4030 013032 042737 OOO000O0 001124 BIC $GODAT ;CLEAR BITS NOT err ren INTO 
rit aw yh 041400 OO1140 2S: BL) eptTivie1T9!6178, SH Are Cie de R39 OR 8 SET 
mo 013050 2777 oooo40 171012 BIS sCLR, IRHCS2 i GIVE a for CEOPE 
4035 013056 013777 001124 171000 3s: MOV SGDDAT ;WRITE A BY SiER 
4036 013064 017737 170774 OO01126 MOV JRHBA sB008T ;READ REGS RESSETER 
4037 013072 043737 OO46S4 9O0112e4 BIC CLReIT, SGDAT ;CLEAR ALWAYS CLEARED BITS 
4038 013100 053737 oo46Se CO0112e4 BIS SETBIT. SGDDAT ;SET ALWAYS SET BITS 
oad Bisiis Beidad Collet O0l1e6 SEO ggoonr, »SBODDAT = BRANCH IF GOOD 
4041 013116 013737 OO4064 001122 MOV RHBA, SBDADR ;GET REGISTER ADDRESS 
4042 013124 104137 ERROR 137 ON — WAS BEING chen 
4043 ; THRU RHBA REGIS 


4044 :0N READING RHBA BACK 





DO? 
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4045S ;1T DID NOT CONTAIN WHAT 
4046 !WAS EXPECTED. 
uowe 013130 006305 ~~ a ae SLED CORY oe 
4 
4048 313132 103335 Bcc 15 Gerd, IF i6 NOT DONE 
4051 :FLOAT A ZEKO THRU RHBA REGISTER. 
4053 013134 012737 013160 001110 MOV #6$ SLPERR ;SET LOOP BACK POINT. 
40S4 012142 012705 177776 MOV #177776,R :GET READY TO FLOAT A ZERO 
40SS 013146 010537 001124 S$: MOV RS, copa :GET READY TO WRITE DAT 
4O0S6 O0131S2 O42737 OO0000 001124 BIC GDDAT CLEAR B's WRITTEN AUNT 0 
4057 013160 032737 O41400 001140 6S: BIT setteniBITS!BITB° S wnt S 14 OR 3 OR 8 SET 
4058 013166 001403 BEQ 7$ : BRANCH IF Y OF THE ABNVE SET 
4059 013170 012777 oO0040 170672 MOV #CLR, IRHCS2 ;CLEAR FOR SCOPE A ID T 
4060 :SYNC_IF IN DESUG 
4061 013176 013777 001124 170660 7%: MOV SGDDAT,a :WRITE INTO RH’XA. 
4062 013204 017737 170654 OO01126 MOV SRHBA, $8008" ; READ RHBA 
4063 Ol3ele 053737 OO46S5e 001124 BIS GDDAT :SET BITS ALWAYS SET 
4064 013220 043737 OO04654 OO011°4 BIC CLRBIT Tal tase :;CLEAR BITS ALWAYS O 
406S 013226 023737 O01124 001126 CMP ODAT , SBDDAT jTEST 
4066 O13e34 001404 BEQ ;BRANCH IF GOOD 
4067 O13e36 013737 OO04064 001122 MOV RHBA, SBDADR :GET REGISTER ADDRESS 
4068 013244 i04137 ERROR 137 :ZERO WAS BEING FLOATED 
4069 : THRU _RHBA R T 
4070 ON NG ACK IT 
4071 ;0ID NOT CONTAIN WHAT 
i072 :WAS EXPECTED 
4074 013246 000261 Qs: SEC 
4075 013250 006105 ROL RS 
4076 013252 1032735 Bcs S$ 
4077 
4078 
40793 + SESRESESAESAAAKAAESRARAAERAARAASSASKELAEAAAAAFSSEESFKLAAESEP SSPE REE SHS 
4980 :kTEST 10 BIT BANG RHBAE 
4082 # TEST LOADING AND READING OF ALL POSSIBLE BITS 
4083 ;* IN RHBAE ISTER. 
4084 :* USE A PATTERN WALKING 1’S (1,2,4,10 ETC) 
4085 ;* AND WALKING 0°S (-2,-3,-5 ETC) 
4086 :# IN THIS TEST 177700 ‘Bits WILL NOT BE WRITTEN INTO 
4087 ;* AND O BITS WEL ALWAYS BE SET 
4088 * AND 177700 BITS WILL ALWAYS BE CLEARED 
4089 ;* IF SWITCH 14 OR 9 OR & ARE SET FOR DEBUGGING 
4030 ;* N A RH CLEAR (RHCS2 BIT #S) WILL BE 
4091 ;# GIVEN TO AID SCOPE SYNCS ON THE CLEAR 
apes :% NAL 
4094 FFKESKESASESERA FAAS LSE ASAEHHAAEARARAEAERAKRAAAKFEHEAF SHARE RES H AA 
4095 013254 oD00004 +éT10: SCOPE 
4096 013256 012706 001000 MOV #STACK, SP ;RESET STACK 
4037 013262 012737 O00010 oo4EsE MOV #10, a8TSTNM :SAVE TEST NUMBER 
40399 013270 004737 040306 JSR PC, JeCLDISK ;GIVE RH INITIALIZE 


41900 :SETUP UNIT NUBER 


EO? 
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AD. -DEC-7 BIT BANG RHBAE ceo 0082 
4101 ;CLEAR RHWC AND FUNCTION BITS IN RHCSI 
4102 
4103 013274 012737 177700 oo4650 MOV #177700,WRTBIT ;177700 ARE BITS NOT _ WRITTEN INTO 
4104 013302 012737 OO00000 oD046Se MOV #0,SETBIT :0 ARE BITS ALWAYS SET 
4108 013310 012737 177700 O046S4 MOV #177700, CLRBIT :177700 ARE BITS ALWAYS CLEARED 
4 
4107 -FLOAT 1°S THRU THE RHBAE REGISTER 
4108 013316 012737 013342 001110 Mov #2$, SLPERR ;SET LOOP ON ERROR ADDRESS 
4109 013324 01270S o00001 MOV 81,85 ‘BETTING READY TO FLOAT A ONE 
4110 013330 010537 001124 1$: MOV RS SSODAT ;START WITH DATA 
4111 013334 042737 177700 001124 BIC teaad GDDAT__; CLEAR BITS NOT WRITTEN INTO 
4112 013342 032737 O41400 001140 es: BIT Sorti4 BT far BT TB’ SHR *ARE SWITCHES 14 OR 9 OR 8 SET 
4113 013350 001403 BEQ 3$ :BRANCH IF ANY ONE SET 
aaa 013352 052777 oo00040 170510 BIS #CLR, IRHCS2 i GIVE CLEAR FOR SCOPE 
4116 013360 013777 001124 170542 3S: MOV SGDDAT , IRHBAE ; WRITE RHBAE REGISTER 
4117 0133 017737 170536 001126 MOV JRHBAE ; $BD ;READ RHBAE REGISTER 
4118 013374 043737 OO046S4 001124 BIC CLRBIT, SGODAT :CLEAR ALWAYS CLEARED BITS 
4119 013402 053737 OO46S2 001124 BIS SETBIT,SGODAT  ;SET ALWAYS SET BITS 
4120 013410 0623737 OO01124 OOllet CMP SGODAT, SBDDAT TEST ’ 
4121 013416 001404 BEQ ;BRANCH IF GOOD 
4122 013420 013737 004130 oO01122 MOV RHBAE, $BDADR :GET REGISTER ADDRESS 
4123 O13426 104137 ERROR 137 30 WAS BEING FLOATED 
4124 RHBAE REGISTER 
4125 :ON READING RHBAE BACK 
4126 T DID NOT CONTAIN WHAT 
4127 + AS EXPECTED. 

4128 013430 000241 4$: CLC :CLEAR CARRY 

4129 013432 006305 ASL RS :GET 1 ONE LEFT 

4130 013434 103335 BCC is :BRANCH IF I6 NOT DONE 

4132 ;FLOAT A ZERO THRU RHBAE REGISTER. 

4134 013436 012737 013462 001110 MOV #6$, SLPERR ;SET LOOP BACK POINT. 

4135S 013444 012705 177776 MOV #177776,.RS ;GET READY TO FLOAT A ZERO 
4136 013450 010537 001124 Ss: MOV RS, SGDDAT :GET READY TO WRITE DATA 
4137 013454 042737 177700 001124 BIC #1?7700,$GDDAT ;CLEAR BITS NOT WRITTEN INTO 
4138 013462 032737 O41400 OO1i4C 6S: BIT Sort iat Biter BITB: SWR :ARE SWITCHES 14 OR 3 OR 8 SET 
41339 013470 001403 BEQ 7$ : BRANCH IF ANY OF THE ABOVE SET 
i140 013472 012777 oo00040 170370 MOV #CLR, RHCS2 5 CORER FOR Coat TO 

4142 013500 013777 001124 i70422 73S: MOV SGDDAT , IRHBAE jHRITE INTO RH’XA. 

4143 013506 017737 170416 001126 MOV DRHBAE | SBDDAT READ RHBAE 

4144 013514 053737 OO046S2 001124 BIS SETBIT. $GDDAT SET BITS ALWAYS SET 

4145 013522 043737 OO46S4 001124 BIC CLRBIT, $GDDAT ; CLEAR BITS ALWAYS O 

4146 013530 023737 O01124 001126 CMP $GODAT, SBDDAT ; TEST 

4147 013536 001404 BEQ 8s ;BRANCH IF GOOD 

4148 013540 013737 004130 OD0ilee MOV RHBAE , SBDADR :GET REGISTER ADDRESS 

4143 013546 104137 ERROR 137 :ZERO WAS BEING FLOATED 

4150 THRU RHBAE REGISTER 

4iS1 ;ON READING IT BACK IT 

41S¢ ;DID NOT CONTAIN WHAT 

ike :WAS EXPECTED 

4155 012550 oo0e61 es: SEC 

4156 O13552 o06105 ROL RS 


FO? 
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CERHAD.F 2i-DEC-7 12:4 IT BANG RHBAE 
4157 613554 103735 pcs 5$ 
4158 
4159 
4160 
4161 
sigs 
wiea $ eri ane that t iat aan 
4165 -#TEST 11 SILO TEST 1 (ONE WORD WRITE) 
4166 :# AFTER A RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
4187 + RHC 36 CHECKED TO Ha ve IR” (BIT #6) HIGH 
4) :* 
4168 :* ONE WORD OF ALL ZEROS IS WRITTEN INTO RHDB 
417 :# —" * 
4171 ;* “OR” (BIT #7) is WAITED FOR BY A TRAP INSTRUCTION 
4172 :#* CALLED “WAT” (NO TIMING IS DONE) hats 
4173 ;* HOWEVER IF “oR DOES NOT SET WITHIN “WAT” COUNT 
417  # DOWN AN ERROR IS REPORTED 
4175 ;* RHOB_IS READ AND CHECKED TO CONTAIN ZEROS 
4176 : RHCS2 WILL CHECKED TO HAVE “IR” AND UNIT NUMBER 
4177 1% RHCS1 RHCS3 RHBA, RHBAE, RHUC. WILL BE CHECKED 40 HAVE 
4178 te APPROPIATE VALUES 
4179 PO tay 9). Sh ,..-,, : Sr Ee ee 
4180 013556 o00004 +6711: SCOPE 
4181 013560 012706 901000 MOV e@STACK, SP ;RESET STA 
4182 013564 612737 OGCOli oo4ESse MOV sil,astSTNm :SAVE TEST ChUMBER 
4184 013572 004737 040306 JSR PC, J#CLDISK i GIVE RH INITIALIZE 
4185 :SETUP UNIT NUBER 
4186 :CLEAR RHWC AND FUNCTION BITS IN RHCS1 
4188 CHECK THAT RHCS2 HAS IR 
4189 013576 012737 oO010C o01124 ov #IR, SGDDAT ;GET GOOD = 100 
4130 013604 053737 OOSO10 OO11e4 BIS UNIT $GDDAT : INCLUDE UNIT NUMBER 
4192 013612 017737 170252 001126 MOV DRHCS2,S$BDDAT ;READ RHCS2 FOR COMPARISON 
4193 013620 023737 OO1124 O01126 CMP $GDDAT . $BDDAT i COMPARE EXPECTED 
i138 ;DAT a, WITH DATA READ FROM 
4196 O13626 001401 BEG 6S$ : BRANCH IF GOOD 
4197 013630 104006 ERROR 6 
4198 ;AFTER SETTING CLR BIT #S 
4199 ; IN RHCS2 TO INIT THE RH 
4200 :AND HAVING DONE NOTHING ELSE 
4201 ;RHCS2 SHOULD HAVE I 
4202 =100 
4203 iT OGETHER WITH UNIT NUMBER 
4204 BUT CONTAINED WHAT IS 
4205 :GIVEN IN BAD RHCSe 
e208 013632 6S: 
4208 ‘ WRITE ONE WORD OF ALL ZEROS INTO RHOB 
4208 013632 005977 170244 écr @JRHOB WRITE O IN RHDB 
4211 zWArT FOR OR BIT IN RHCS2 REGISTER TO SET 
4212 OCl1362— 104411 TRAP TO WAIT.? SUBROUTINE 
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013640 904070 
Oi3e4e o000e90 


013644 012737 
0136S2 017737 
013660 023737 


Di36eE 0 


1367 


013672 


13672 912737 
3700 053737 


013726 

013726 012737 
013734 017737 
013742 023737 


013760 001401 


21-DEeC-77 


GO? 


2i-DEC-77 13:06 PAGE 8S 


12:48 Th1 SILO TEST 1 ‘ONE WORD WRITE) 
RHCS2 ;AND WAIT FOR OR BIT IN 
OR STER 


CHECK THAT RHDB HAS 0 
900000 001124 hoy #0, $GDDAT 


170ee4 O0lieb MOV @RHOB , SBODAT 


;GET GOOD = 
; READ ae & pon COMPARISON 
Sara uiTh CTED 

gl TH DATA READ FRO? 
: BRANCH IF GOOD 


;AFTER CLEARING THE RH 
;AND WRITING ALL ZEROS 


0 
THEN REABING IT _ BACK 
; RHDB SHOULD HAVE 0 


BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHOB 


;GET GOOD = 100 

: INCLUDE UNIT NUMBER 

;READ RHCS2 FOR COMPARISON 
; COMPARE EXPECTED 

:DATA WITH DATA READ FROM 
;RHCS2 

:BRANCH IF GOOD 


;AF TER CLEARING THE RH 
:AND WRITING ALL ZEROS 


RHOB 
HEN READING IT BACK 
;RHCS2 SHOULD HAVE IR 


=10 
i TOGETHER WITH tert NUMBER 
;BUT CONTAINED W Is 
;GIVEN IN BAD RucSe 

;GET GOOD = 4200 

;READ RHCS1 - COMPARISON 


0011e4 OO01126 CMP $GDDAt, SBDDAT 
BEO 67% 
ERROR 7 
67S: 
:CHECK THAT RHCS2 HAS IR 
000100 o01124 MOV #IR,$GDDAT 
005010 o011e4 BIS UNIT. $GDDAT 
170156 001126 MOV JRHCS2, SBDDAT 
001124 o01126 CMP $GDDAT . SBDDAT 
BEQ 69% 
ERROR 10 
; INTO 
69S: 
CHECK THAT RHCS1 HAS DVA!IRDY 
o04200 001124 hov sDVA!RDY, SGDDAT 
170120 001126 MOV JRHCS1, SBDDAT 
001124 O0i12e6 CMP $GDDAT; $BDDAT 


BEG 718 


; COMPARE EXPEC 
;DAT WITH BATA READ FROM 


Heed 
:BRANCH IF GOOD 


HO? 
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CERHAD. P11 21-DEC-77 12:48 TLl SILO TEST 1 (ONE WORD WRITE) S€q cogs 
- ; RROR 
a ae — SAFTER CLEARING THE RH 
4271 [AND WRITING ALL ZEROS 
dss i $10 BERB inc 17 Back 
4e74 snes SHOULD HAVE DVA!IRDY 
7 
455 Bu FOR ONTAINED WHAT IS 
“e77 :G1-EN IN BAD RHCS1 
4278 013754 718: 
427 CHECK THAT RHCS3 HAS 0 
4286 013754 012737 o00000 001124 MOV #0, SGDDA ;GET GOOD = 0 
Sees BLESS SPH ACTED OBLIGE «=| OX EBAYSEEDRNT Baap. ferea. con, goreans 
ma . 3D at a. NETH DA DATA READ FRO? 
4 
4286 013776 oO01401 BEQ 73% BRANCH IF GOOD 
4287 014000 1040i2 ERROR 12 
428 ; AFTER ie ARING THE RH 
4288 :AND | WR NG ALL ZEROS 
4251 NR ING IT BACK 
4595 ae EADIN 8 have 
4293 ONTAINED toe 
4egy BU VEN: IN BAD RHCS 
dooe viii ei » CHEC THAT <BHBAHAS 0 
HECK 
1297 014002 012737 O00000 001124 Mov WG. SCOBAT :GET GOOD = 
4299 014010 017737 170050 091126 MOV QRHBA, SBDDAT ;READ RHBA FOR COMPARISON 
4300 O1401&6 023727 601124 GOllze CMP $GDDAt, $BDDAT ; COMPARE EXPECTED 
4301 sDATA TA WITH DATA READ FROM 
4303 O14024% 001401 BEG 75 :BRANCH IF GOOD 
4304 014026 104013 ERROR 13 
4305 ;AFTER CLEARING THE RH 
4306 SAND WRITING ALL ZEROS 
4307 RHDB 
4308 THEN READING IT BACK 
4303 ;RHBA SHOULD HAVE 0 
ai :BUT, CONTAINED, uWaT IS 
4313 014030 758: 
4314 “CHECK THAT RHBAE HAS 0 
4315 014020 012737 ocCo00e 001124 MoV #0, SGDDAT ;GET GOOD = 
4317 014036 017737 170066 001126 MOV QRHBAE,SBDDAT READ RHBAE FOR COMPARISON 
4318 O14044 0923737 OO1i24 OOlise CMP $GDDAT;SBDDAT ;COMPARE EXP 
mt > pare Mie DATA READ FROM 
4321 O140S2 00140: B 77 RANCH IF GOOD 
4322 014054 104014 PRROR 14> s BRANC 
4323 ;AFTER CLEARING THE RH 
4304 [AND WRITING ALL ZEROS 
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014056 
0140S6 


014104 


oooo04 
012706 
012737 


004737 


012737 
053737 
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ocgo000 


67772 


583125 


001000 
0000ie 


040306 


000100 
005010 


001124 


001126 
O0011e6 


OO46S6 


13: TE PAGE 987 
Tia 


10? 


SILO TEST 1 (ONE WORD WRITE) 


NTO RHOG 
HEN READING IT ~ 
; RHBAE SHOULD HAVE 0 


‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


77S: 
-CHECK THAT RHWC WAS O 
MOV #0, SGODAT ;GET GOOD = 
MOV SRHWC , SBODAT ;READ RHWC FOR COMPARISON 
CMP S$GDDAT,SBDDAT ;COMPARE EXPECTED 
be Me WITH DATA READ FROM 
BEG 79¢ :BRANCH IF GOOD 
ERROR 1S 
;AFTER CLEARING THE RH 
AND WRITING ALL ZEROS 
PINT O RHDB 
: THEN READING IT BACK 
} RHWC SHOULD HAVE 0 
BUT CONTAINED WHAT IS 
an :GIVEN IN BAD RHWC 


+s ESKREESERKERKEKREKRSERAEKSHHARAAREEHKHAARKEESHRSSSSKRAF FFE PSR HHEHSE 
ITEST 12 SILO TEST 2 (ONE WORD WRITE) 
: AFTER A RH CLEAR 1s GIVEN (SET BIT #S IN @HCS2) 
RHCSe IS CHECKED TO HA VE “IR" (BIT #6) HIGH 
TOGETHER WITH UNIT 
ONE WORD OF ALL ONES ure WRITTEN INTO RHDB 
“OR” (BIT #7) IS WAITED FOR BY A TRAP INSTRUCTION 
(NO TIMING IS DONE) 
“OR” DOES NOT SET WITHIN “WAT” COUNT 
WN AN ERROR IS REPORTED 
RHDB IS READ AND CHECKED TO CONTAIN ALL ONES 
S2 2 WILL | BE CHECKED TO HAVE “IR” AND UNIT NUMBER 
RHCS1 RHBQ.RHBAE,RHWC, WILL BE CHECKED a 7 HAVE 
+ RPPROP TATE” YALUES 
tas oh bh 5,5 TE I EO Sees Pe 
té712: SCOPE 
MOV aSTACK, SP ;RESET STACK 
MOV #12, a8tTSTNM :SAVE TEST NUMBER 


JSR PC, ad#CLOISK ;GIVE “t INITIALIZE 
:SETUP UNIT NUBER 
:CLEAR RHWC AND FUNCTION BITS IN RHCS1 


ee 
DBDOIO 3w 
ae ooDo~< 

i 

- 

m 

oO 

7 

7 

: 


td Se eee eres er er seer asasese 


CHECK THAT RHCS2 HAS IR 
hov $GDDAT ;GET GOOD = 100 
BI L SAT SeDDAT :INCLUGE UNIT NUMBER 


Ol422e 


Ol422e 
014230 


014236 
014244 


104411 
004070 
o00e00 


012737 
017737 
023737 


001401 
104C07 


012737 
053737 


017737 
023737 


i-DEC-77 
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167724 
001124 


177777 


167674 
001124 


000100 
005010 


167626 
001124 


001126 
001:26 


001124 


001126 
001126 


13: | PAGE 88 
Tle 


6S$: 


67$: 


JO? 


SILO TEST 2 (ONE WORD WRITE) 


MOV AJRHCS2, SBODAT 
CMP $GDDAT , SBDDAT 
BEG 6S$ 

ERROR 6 


;READ RHCS2 FOR COMPARISON 
;COMPARE EXPECTED 
;0A TA WITH DATA READ FROM 


HCSe 
BRANCH IF GOOD 


44d a5 TT ING our ? - 
:IN_RHCSe TO INIT THE R 
;AND_HAVING DONE NOTHING ELSE 
ey SHOULD HAVE IR 


=10 
TOGETHER WITH Unt NUMBER 
sie CONTAINED WHAT IS 
;GIVEN IN BAD RHCSe 


;WRITE ONE WORD OF ALL ONES INTO RHDB 


MOV #177777, JRHDB 


;WRITE 1 IN RHOB 


pert FOR OR BIT IN RHCS2 REGISTER TO I 


; TRAP TO a } sa ai 
OR BIT IN 


RHCS2 "AND WAIT FOR OR 
OR :RHCSe REGISTER 
?IF ERROR OCCURS HERE 
:IT MEANS “OR” DID N . 
;SET FOR THE FULL COUN 
:DOWN OF THE WAIT COuNBROUTINE 
!THIS TIME IS APPROXIMATELY 
!LARGER THAN SOO MILLISECONDS 
CHECK THAT RHDB HAS 177777 
hov %177777,$GDDAT ;GET GOOD = O 
MOV JRHDB , SBDDAT ;READ RHDB FOR COMPARISON 
CMP $GDDAT, SBDDAT ; COMPARE EXPECTED 
‘Rare ara WITH DATA READ FROM 
BEQ 67% :BRANCH IF GOOD 
ERROR 7 


CHECK THAT RHCS2 HAS IR 
hov $GDDAT 

Bis tnt: $GDDAT 

MOV JRHCS2, SBDDAT 
CMP $GDDAT, $BDDAT 


;AFTER CLEARING ye. RH 
; AND gt ae ALL ONES 


IN HD 

; THEN READING IT BACK 
;RHOB SHOULD HAVE 177777 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHDB 


;GET GOOD = 100 
; INCLUDE UNIT NUMBER 


;READ RHCS2 FOR COMPARISON 
:COMPARE EXPECTE 
:DATA WITH DATA READ FROM 


KO? 
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SER HAD OPL ll 21-DEC-77 12:48 Tle SILO TEST 2 (ONE WORD WRITE) SEG cose 
4437 + BRARC 
S38 GISEEG f043%% BEfon $38 ati 
44 Q fy) 
4440 ; AFTER CLEARING THE RH 
444] ;AN NO WRITING ALL ONES 
4442 ; INTO RHOB 
4443 Poa READING IT BACK 
4444 RHCS2 SHOULD HAVE IR 
444s =10 
4446 10D ee WITH UNIT NUMBER 
4447 :BUT CONTAINED WHAT IS 
4448 :GIVEN IN BAD Rice 
4449 014256 69S: 
4450 -CHECK THAT RHCS3 HAS O 
wHe1 014256 012737 o00000 001124 Mov #0, SGDDAT ;GET GOOD = 
44S3 014264 917737 167642 O01126 MOV JRHCS3,$BDDAT ;READ RHCS3 FOR COMPARISON 
4454 014272 023737 6001124 O0lic6 CMP $GDDAT; SBDDAT ; COMPARE EXP 
445S ;DAT A WITH DATA READ FROM 
4456 RHCS3 
4457 014300 001401 BEG 71% : BRANCH IF GOOD 
4458 014302 1040le ERROR le 
4453 ;AFTER CLEARING THE RH 
4460 :AND WRITING ALL ONES 
4461 : INTO RHDB 
4462 : THEN READING IT BACK 
wie3 ;RHCS3 SHOULD HAVE O 
4465 BUT CONTAINED WHAT IS 
4466 :GIVEN IN BAD RHCS3 
4467 014304 71S: 
4468 :CHECK THAT RHBA HAS O 
W683 014304 012737 oO00000 o01124 MOV #0, SGDDAT ;GET GOOD = 
4471 014312 017737 167546 001126 MOV JRHBA , SBDDAT ;READ RHBA FOR COMPARISON 
4472 014320 023737 001124 O011e6 CMP $GDDAT, SBODAT ; COMPARE EXPECTED 
4473 ;DAT A WITH DATA READ FROM 
4474 : RHBA 
4475 014326 001401 BEG 73% :BRANCH IF GOOD 
4476 014230 104013 ERROR 13 
4477 ;AFTER CLEARING THE RH 
= ON WRITING ALL ONES 
4480 : THEN READING IT BACK 
mae ; RHBA SHOULD HAVE 0 
4483 BUT CONTAINED WHAT IS 
4484 :GIVEN IN BAD RHBA 
—oe 738: CHECK THAT R BAE HAS 0 

HECK THAT RH H 

ma 014332 012737 op0000 o0112e4 Mov #0, SGDIAT ;GET GOOD = 
4489 014340 017737 167564 001126 MOV JRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
4490 014346 023737 001124 001126 CMP $GDDAT; SBDDAT ; COMPARE EXPECTED 


4491 :DATA WITH DATA READ FROM 
RHBAE 


CERHADO MACY11 30( 1046) 
CERHAD.P1i 21-06C-77 


4493 014354 001401 


4494 014356 194014 
BESS 


4503 014360 
4SO0S 014360 


4507 014366 
4508 014374 


012737 
017737 
023737 


4511 014402 
4Sie 014404 


001401 
104015 


4521 014406 


4 
4545 014406 9O00004 
4546 014410 012706 
ms a 014414 012737 


21-0EC-77 
12:48 


oo0000 001124 


167470 O0112e6 
001124 O0ile6b 


001000 
000013 oo4éS56 


13:06 pes 30 


7S$: 


7738: 


* OR COR RC CCRC RC RCC CC RCO aie wee 


—_ ee ee eee ee re re re eee 


+37 


LO? 


SILO TEST 2 (ONE WORD WRITE) 
;BRANCH IF GOOD 


+a ley CLEARING THE RH 
go es ALL ONES 


tN O RHO 
: THEN READING IT BACK 
; RHBAE SHOULD HAVE 0 


'BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


BEG 753 
ERROR 14 


;CHECK THAT RHWC HAS 0 


MOV #0, SGDDAT ;GET GOOD = 
MOV JRHWC , SBODAT  SSnBaRt RHWC FOR TEQMPARISON 
CMP $GDDAT, SBDDAT oon ARE 


A WITH BATA READ FROM 
773 {ae IF GOOD 


BEG 

ERROR 15 
rer CLEARING "S RH 
;AND WRITING ALL ONES 
; INTO R 


HO 
; THEN READING IT BACK 
; RHWC SHOULD HAVE 0 


‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


5 HEE ESE SE SE SE HE SE AE HE Se JE AE ME ee EH SH SSE JE HE SE EE EE EE EE EH HH HE HE HE HEE HEE EEE 
TEST 13 


SILO TEST 3 (TWO WORD WRITE) 


AFTER A RH CLEAR IS GIVEN (SET BIT #5 “ RHCS2 } 
RHCSe IS ee be BS “IR” (BIT #6) HIGH, 


corneas © 
Tie INTO RHODE 
D UNIT NUMBER 


Petals Sn | WRITTEN INTO RHODE 


7 _ IN press) Is WAITED FOR BY A TRAP 


T 

INSTR JET Lon N CALL 0 

RCS 2 1s NECKE OMANE “I 29 Reo none BNO UNIT NUMBER 
r FEA ee: ee AND 


CHECKED T 
CONTAIN 1 sae aos coal 
Me reat RetistPal He ehaphiGe oath: ne am 


1 "tgp 2 nana panama mes eterna pacha eel Ci Lby tise 


#STACK, SP 


OV ;RESET STACK 
MOV #13, a8TSTNM 


:SAVE TEST NUMBER 


w 


E 


» 


0083 


MO? 
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CERHAD.P11 21-DEC-77 12:48 T13 SILO TEST 3 (TWO WORD WRITE) SEo 0090 
4 44 4737 04 JSR PC, JUCLDISK GIVE RH INITIALIZE 
482 014422 004737 040306 ise at ao 
4551 LEAR RHWC AND FUNCTION BITS IN RHCS1 
4 
4553 CHECK THAT RHCS2_HAS IR 
4554 014426 012737 000100 001124 hov #IR, SGODAT ;GET GOOD = 100 
4555 014434 053737 OOS010 001124 BIS UNTi. $GDDAT : INCLUDE UNIT NUMBER 
gees 014442 017737 167422 001126 MOV QRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
4558 O144SO 623737 OO011e4 001126 CMP $GDDAT.$BDDAT ;COMPARE EXPECTED 
4S59 spate MITH DATA READ FROM 
4561 O144S6 001401 BEQ 65S :BRANCH IF GOOD 
4562 O14460 104006 ERROR 6 
4563 ;AFTER SETTING “CLR” BIT #5 
4564 :IN RHCSe TO INIT THE RH 
use5 tAND HAVING DONE NOTHING ELSE 
4567 ;RHCS2@ SHOULD HAVE IR 
4569 TOGETHER WITH UNIT NUMBER 
4570 :BUT CONTAINED W IS 
4571 :GIVEN IN BAD RHcSe 
457¢ 014462 65S: 
4574 -WRITE ONE WORD = 52525 INTO RHOB 
425 014462 012777 OS2S25 167412 Mov 852525, JRHDS TE IN RHDB 
4577 Boa a sWAIT FOR OR BIT IN RHCS2 REGISTER TOS T Rs 
dere BiGGs8 ABdddA Roose ‘ARB Agr POR i baa te 
4580 014474 O00200 OR :RHCSe REGISTE 
4581 ;IF ERROR oecuRs HE nO, 
dees ‘Bat Be FULL cd 
uege Mas Par APPR T SUBROUTINE 
45 Tage ft THAN SOO M CT TeEESNos 
4587 
4eBS 
; CHECK THAT RHCS2 HAS IR!OR 
4590 O14476 012737 O00300 9001124 MOV ;GET GOOD = 300 
4531 014504 053737 6005010 oOOi1e4 BIS GATT Sadsar INCLUDE UNIT NUMBER 
4593 014512 017737 157352 001126 MOV @RHCS2,SBDDAT  ;READ RHCS2 FOR COMPARISON 
4594 014520 023737 001124 OO1le6 CMP $GDDAT; SBDDAT i COMPARE 2p Ege Eb 
4e36 i DAT Ta WITH DATA READ FROM 
4597 014526 001401 ? :BRANCH IF 
4598 014530 104016 ERROR ty SERANCH IF G00 
HEQS ;AFTER SETTING “CLR” BIT #5 
4600 :IN RHCS2 TO INIT THE RH 
me ait : AEN WRITING S2eS2S INTO 
4603 : HAVE IR! 
Ne 3 RUCSE SHOULD E IR!OR 


NO? 
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SERHAD SP: 1 21-0EC-77 12:48 T13 SILO TEST 3 (TWO WORD WRITE) SEG 0091 
4605 ; TOGETHER WITH UNIT NUMBER 
4606 :BUT CONTAINED 1s 
4607 :GIVEN IN BAD rtices 
4608 014S32 67$: 
4610 :WRITE A SECOND WORD = 125252 INTO RHOB 
W611 014S32 012777 125252 167342 hov #125252,dRHDB ;WRITE 125252 INTO RHOB 
4613 -WAIT FOR OR BIT IN RHCS2 REGISTER TO 
dela O14S4O 104411 WAT ; TRAP 76 Ral’. f SUBROUTINE 
weie Siseus G00S00 ons meee acoreteg® on 
4617 i TF ERROR OCCURS HERE 
4618 ;I1T MEANS “OR” DID. NOT 
4619 :SET FOR THE FULL ¢ OUNT 
4620 :DOWN OF THE WAIT.T UBRC JT INE 
4621 :THIS TIME IS APPROXIMATELY 
ieee :LARGER THAN-SOO MILLISECONDS 
4624 -CHECK THAT RHDB HAS S2S525 
dees Ci4S46 012737 oOS2e525 001124 Mov #S2525,S$GDDAT  ;GET GOOD = 0 
4627 O14SS4Y 017737 167222 001126 MOV JRHOB, SBDDAT ;READ RHDB FOR COMPARISON 
4628 O14S62 023737 001124 OOll26 CMP SGDDAT,SBDDAT # ;COMPARE E 
iee3 :DATA WITH DATA READ FROM 
4631 014570 001401 BEQ ry :BRANCH IF GOOD 
4632 014572 104017 ERROR 17 
4633 ;AFTERCLEARING THE RH THEN 
4634 ;WRITING TWO WORDS INTO 
4635 : RHOB 
4636 : THEN Ri ONCE 
4637 }RHOB SHOULD HAVE Ses 
4638 ;BUT CONTAIN AT I 
4639 :GIVEN IN BAD RHDB 
4640 014574 69S: 
4641 *CHECK THAT RHCS2 HAS IR!OR 
4642 O14S74 012737 000300 001124 MOV #IR!OR,SGDDAT  ;GET GOOD = 300 
deus 014602 053737 OOSO!i0 001124 BIS UNIT, StDDAT ‘INCLUDE UNIT NUMBER 
464S 014610 017737 467254 001126 MOV OJRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
4646 014616 023737 601124 O01126 CMP $GODAT; $BDDAT i COMPARE EXPECTED 
= A 4 s BATA WITH DATA READ FROM 
4649 014624 091401 BEQ 71% :BRANCH IF GOOD 
4650 014626 104020 ERROR 20 
4651 ;AFT RCLEARING THE RH THEN 
4652 WRITING TWO WORDS INTO 
4653 see SeSeS ND 125252 
4654 . HEN READING RHDB ONCE 
wee : s RCS SHOULD HAVE IR!OR 
4657 : TOGETHER WITH UNIT NUMBER 
4658 :BUT CONTAINED W IS 
4659 ‘GIVEN IN BAD rices 


4660 014620 718: 


CERHADO MACY11 30:10%6) e2i-DEC-77 13: Of PAGE 33 
CERHAD.F 11 21-DEC-77 12:48 : 13 SILO TEST 3 (TWO WORD WRITE) SEG 0092 


;REQD RHDB A SECOND TIME 
:CHECK THAT RHOB HAS 125252 
014630 012737 125eSe OCile4 Mov #1252S2e,$GODAT ;GET GOOD = 0 


014636 017737 167240 901126 MOV @RHUB , SBDDAT ;READ RHDB FOR COMPORISON 
014644 023737 901124 001126 CMP $GDDAT, SBDDAT ;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


014652 44 73% : BRANCH IF GOOD 


514654 OR 21 
; AFTER ee ie RH yen 
;WRITING TWO WORDS IN 
;RHOB S2S25 AND Taser 
; THEN ae RHOB THE 
; SECOND TIME 
RHOB SHOULD HAVE 12S2eSe 
: BUT CONTAINED tof Is 
;GIVEN IN BAD RHD 

014656 

; CHECK ey RHCS2_ HAS IR 


014656 012737 MOV GET GOOD = 100 
014664 053737 BIS UNIT. SGDDAT ? INCLUDE UNIT NUMBER 


014672 017737 MOV @RHCS2 , SBODAT ;READ RHCS2 FOR COMPARISON 
014700 023737 CMP $GDDAT ; SBDDAT ; COMPARE EXPECTED 

pare MaTm DATA READ FROM 
014706 001401 BEQ 75S ;BRANCH IF GOOD 


;AFTER CLEARING RH THEN 
;WRI 


014710 104%02e ERROR ee 


TOGETHER WITH iit NUMBER 
iBUT CONTAINED Wi Is 
:GIVEN IN BAD Riese 


014712 
CHECK THAT RHCS1 HAS DVA!RDY 
014712 012737 oo4200 o01124 hov sDVA!RDY,SGDDAT ;GET GOOD = 4200 


014720 017737 167134 001126 MOV @RHCS1, SBODAT ;READ RHCS1 oo COMPARISON 
014726 023737 001124 001126 CMP $GDDAT ; SBDDAT ; COMPARE EXPECT 
:DATA WITH DATA READ FROM 


;RH coy 
014734 BEG 773% ;BRANCH IF GOOD 


014736 ERROR 141 
;AFTER CLEARING RH THEN 
tWRITING TWO WORDS INTO 
:RHDOB S2S2S5 AND 1leS2eSe 
‘THEN READING RHDB THE 
:SECOND TIME 





CERHADO MACY11 30: 10%6) 


CERHAD. 


Pil 


014740 
014740 
014746 
014754 


014762 
014764 


014766 


014766 


015014 
015014 


2i-DEC-"? 


0i2737 
017737 
023737 


001401 
104i4e 


012737 


017737 
023737 


012737 
017737 
023737 


001401 
104144 


2i-DEC-77 


12:48 


ooooo0 


167160 
001124 


000000 


167064 
001124 


000000 


167102 
001124 


Edd 
773: 


001124 


001126 
001126 


79S: 


001124 


001126 
0011e6 


81$: 


001124 


001126 
001126 


13:06 FP eg 34 


COS 


SILO TEST 3 (TWO WORD WRITE) 
dere 2 SHOULD HAVE DVA!RDY 


BY TeCOUNPBEP RMT 1° 


;CHECK THAT pee So HAS 0 
MOV 


#0, SGDDAT ;GET GOOD = 0 
MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GDDAT.$BDDAT ;COMPARE EXPECTED 
pare WITH DATA READ FROM 
BEG 79S :BRANCH IF GOOD 
ERROR 142 
ETERS CL ARING RH THEN 
YROS INTO 
; RHDB ce525 @No 125252 
i THEN AD ING RHOB THE 
SECOND TIME 
;RHCS3 SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN RHCS3 
-CHECK THAT RHBA HAS 0 
MOV #0, SGDDAT ;GET GOOD = 0 
MOV JRHBA , SBDDAT READ RHBA FOR COMPARISON 
CMP $GDDAT, SBDDAT : COMPARE EXPECTED 
mre WITH DATA READ FROM 
BEQ 81$ :BRANCH IF GOOD 
ERROR 143 
see CLEARING RH THEN 
WRITING THO WORDS INTO 
HD S25 AND 125252 
s aepe READING RHDB THE 
: ECOND TIME 
:RHBA SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 
»CHECK THAT RHBQAE HAS 0 
MOV #0, SGDDAT ;GET GOOD = 0 
MOV DRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
CMP SGDDAT;S$BDDAT # ;COMPARE EXPECTED 
DATA uh Tes DATA READ FROM 
BEQ 83$ :BRANCH IF GOOD 
ERROR 144 
;AFTER CLEARING RH THEN 
;WRIT WORDS INTO 


: THEN RERy LNG RHDB THE 
;SECOND TIME 
;RHBAE SHOULD HAVE O 


SEG 0093 


CERHADO MACYi1 30: 1046) 
21-DEC-r? 


CERHAD. 


Pil 


01S04e 
o1so04e 


ciso7c 


012737 


017737 
023737 


2i-DEC-77 13:06 PAGE 95 
T13 


12:48 


ooco00 O0C11e4 


167006 001126 
90i1e4% O011e6 


001000 
000014 o0o046S56 


040306 


83$: 


sss: 


DOS 


SILO TEST 3 (TWO WORD WRITE) 


;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


; CHECK =. spp rs 0 


Mov ;GET GOOD = 0 
MOV IRHWC , SBDDAT ;READ RHUC bor COMPARISON 
CMP $GODAt, SBDDAT ‘Seta a xPECTED 

BATA WITH DATA READ FROM 
BEG ass + BRANCH IF GOOD 
ERROR 145 


ETE EES Ua It 
a ose A 
; THEN ee RHOB THE 
; SECOND TIME 

;RHWC SHOULD HAVE 0 
:;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


+ LEKKESERA SEEK EEAS RARE FERALAS AAAAELAALALELALLESEAERE ESRF ESTE FES 


i RTEST 


SrerrrrTrTTr TT Tt 


eee ee et et ae ee et ee es ee ae ee 


4 SILO TEST 4 (COUNT PATTERN) 


AFTER A_RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 

RHCSe IS CHECKED TO HAVE “IR” (BIT #6) HIGH, TOGETHER 
WITH UNIT NUMBER 

FiGaT WORDS, A COUNT PATTERN O THRU 7 IS WRITTEN 


“OR™ ‘ery #7 IN RHCS2) IS WAITED FOR BY A TRAP 

INST ION CALLED “WAT” 

THEN RHCSe_I CHECKED TO_HAVE “IR” LOW AND 

“OR” HIGH T TH THE UNIT NUMBER 

EN nice AD AND COMPARED TO HAVE THE RIGHT VALUE 
MB 


THERESE BME Lec"WERRoo BARE: VERE. MME oe 


SHEKAEKAALAAEHEREAAAKAAERLEKKLAARAEAEAELEALKALAALERAAHSERE ASF HAE SS 


ines 


SCOPE 

MOV aSTACK, SP ;RESET STACK 

MOV #14, a8tSTNM :SAVE TEST NUMBER 
JSR PC, J#CLDISK 


eye indy NUBER 


:CLEAR RHWC AND FUNCTION BITS IN RHCS! 
CHECK THAT RHCS2 HAS IR 
hov #IR,$GDDAT ;GET GOOD = 100 
BIS UNIT. $GDDAT INCLUDE UNIT NUMBER 
MOV gRHCSe, , $8DDA CGRP RHCS2 FO FOR COMPARISON 
G AR 


CMP DOAT , $BDDA A 
:DAT A WITH DATAY READ FROM 
:RHCS2 


EOS 


C RHADO MACYL1 30(104%6) 2i-DEC-77 13: 08 4PAGE oe 

cER RHAD.P11 21-DEC-77 12:48 SILO TEST 4 (COUNT PATTERN) 
4829 015140 001401 BEQ 653 ;BRANCH IF GOOD 
4830 O1S5142 rapist ERROR 6 .. 
4831 ;AF TER SETTING 7oLR BIT as 
4832 :IN RHCSe TO INIT THE RH 
4833 ; BIND HAVING DONE NOTHING ELSE 
438 ; RUCSe SHOULD HAVE IR 
4 
i836 : TOGETHER WITH UNIT NUMBER 
4837 :BUT CONTAINED WHAT IS 
4838 :GIVEN IN BAD RHCSe 
4839 015144 6S$: 
4841 s WRITE EIGHT WORDS INTO RHOB TO FILL IT 
4B42 HIS IS A COUNT PATTERN O THR 
4843 015144 O12702 oo0010 hov #8. ,Re 8 NUMBERS TO BE WRITTEN 
4844 015150 ooS001 CLR Ri FIRST WORD TO BE WRITTED = 0 
4845 015152 010177 166724 13: MOV R1,JRHOB WRITE INTO RHDB - A COUNT 
4846 015156 005201 INC Ri :GET NEXT WORD 
4847 015160 005302 DEC Re :COUNT TO 8 
weve 015162 00137 BNE 1$ :BRANCH IF 8 NOT DONE 
4850 -WAIT FOR OR BIT IN RHCS2 REGISTER TO SET 
4851 015164 104411 WAT ;TRAP TO walt. SUBROUTINE 
4B8S2 015166 004070 Rese :QND WAIT FOR OR BIT IN 
4852 015170 op0200 OR ;RHCSe REGISTER 
4854 :IF ERROR OCCURS HERE 
4655 : MEANS “OR” DID NOT 
48S6 SET FOR THE FULL COUNT 
4857 ; DOWN OF THE WAIT.T SUBROUTINE 
4858 : THIS TIME IS APPROXIMATELY 
m+ 3 :LARGER THAN SOO MILLISECONDS 
4861 CHECK THAT RHCS2 HAS OR 
4862 615172 012737 oO00200 001124 hov #OR, SGDDAT ;GET GOOD = 200 
1863 015200 053737 oosoiCc oC11e4 BIS UNIT. $GDDAT ‘INCLUDE UNIT NUMBER 
4865 O15206 017737 166656 001126 MOV DRHCS2,$BLDAT ;READ RHCS2 FOR COMPARISON 
4866 015214 023737 OO1!24 OOlies CMP $GDDAT;$BDDAT :COMPARE EXPECTED 
sete ;08 Av WITH DATA READ FROM 
4869 015222 OO1401 BEG 675 : BRONCH IF GOOD 
4870 015224 104022 ERROR 23 
487i ;AFTER SETTING T CLR Bit aS 
487e ;IN RHCSe TO INIT THE R 
4873 ;AND HAVING WRITTEN A 
4874 COUNT PATTERN O THRU 7 
4875 : INTO RHDB TO FILL IT 
p> IA | ; RHCS2 SHOULD HAVE OR 
4878 TOGETHER WITH UNIT NUMBER 
4E79 :BUT CONTAINED WHAT IS 
4880 oe :GIVEN IN BAD RHCS2 
4881 O1S226 &7$: 
4B8Be 
4883 


ste merase 30‘ 1046} 
CERHAD.P 21-DEC-77 le: 


015226 
015234 


42 
015250 


0iSebe 
01S26e 
01Se70 


015316 
O1S316 
015324 


012737 o0000i 
012737 000000 
017737 166634 
023737 O01ie4 


001401 
1040e4 


Gie737 o00002 
012737 o00001 
017737 166600 
023737 001124 


601401 
104024 


012737 000003 
012737 oo0000e 


017737 166544 
023737 001124 


2i-DEC-77 
48 


094664 
001124 


OG11i26 
001126 


004664 
001124 


001126 
001126 


OC4664 
001124 


001126 
001126 


69$: 


FO8 


SILO TEST 4 (COUNT PATTERN) 
;FIRST WORD TO BE READ 


i3: a“ P cee 97 


MOV #1,SILONM 
-CHECK THAT RHDB HAS O 


Mov #0, SGODFT ;GET GOOD = 0 
MOV JRHDB, SBDDAT ;READ RHDB FOR COMPARISON 
CMP S$GODAt,SBDDAT :COMPARE EXPECTED 

: DAT WITH DATA READ FROM 
BEG 69% :BRANCH IF GOOD 
ERROR 24 


; AFTER SETTING 7¥ "he BIT aS 
3 IN RHCSe TO . NIT THE RH 


AND af 38. 
COUNT PA ene O THRU 7 
IN NTO RHDB TO FILL IT 
THEN ON READING RHDB THE 
ay TIME 


:GIVEN IN BAD RHOB 


MOV #2,SIL ;SECOND WORD TC BE READ 
CHECK THAT RKB "HAS 1 
hov , SGDDAT ;GET GOOD = 0 
MOV JRHDB , SBDDAT :READ RHDB FOR COMPARISON 
CMP $GDDAT, SBDDAT COMPARE EXP 

: DATE WITH DATA READ FROM 
BEO 71% :BRANCH IF GOOD 
ERROR 24 


;AFTER SETTING “CLR” BIT #& 
;IN RHCSe TO INIT THE RH 
WRITING A 


; AND 

count ei oF O THRU 7 
NTO RHOG TO FILL IT 

THEN ON READING RHOB THE 

phe TIME 

;RHOB SHOULD HAVE 1 

;BUT CONTAINED WHAT IS 

:GIVEN IN BAD RHOB 


MOV #3, SILONM ; THIRD WORD /O BE READ 
CHECK THAT RHDB HAS 2 


Mov #2, SGDDAT ;GET GOOD = O 
MOV JRHDB, SBDDAT ;READ RHDB FOR COMPARISON 
CMP $GDDAt. $BDDAT ; COMPARE EXPECT 

;DAT A WITH DATA READ FROM 
BEO 73% : BRANCH IF GOOD 
ERROR 24 


;AFTER SETTING “CLR” BIT aS 
;IN RHCS2 TO INIT THE RH 


CERHADO MACY11 30( i046) 
21-DEC-"7 12:48 


CERMAD.P 11 


015352 


015406 
015406 
015414 


01S4e2e2 
015430 


O1S44e 
01s44e 


01le737 
012737 


017737 
023737 


012737 
012737 


017737 
023737 


012737 


2i-DEC-77 


oo0004 
000003 


166S5i0 
O01ie4 


oo0000S 
ooo0004 


1664S4 
001124 


000006 


004664 
001124 


O0iie6 
O0ileéb 


OO4664 
001124 


001126 
OOlieb 


OOYEE4 


13:06 PAGE 
14 


738: 


738: 


MOV 
CHECK hate Akos nes 3 


hov 


MOV 
CMP 


MOV 


MOV 
CMP 


BEQ 
ERROR 


MOV #6, SILONM 
:CHECK THAT RHDB HAS 5 


~4 


MOY #S,SILONM 
-CHECK THAT RHDB HAS 4 
#4, SGDDAT 


GO8 


EST 4 «COUNT PATTERN) 


;AND WRITING A 
:COUNT PATTERN O THRU 7 


TRS Sake EASING RHODE THE 


: BHO CONTAINED ue§ Is 
:GIVEN IN BAD RHOB 


;FOURTH WORD TO BE READ 


#3, SGODDAT ;GET GOOD = 0 
JRHDB, $BDDA ;READ RHDB FOR COMPARISON 
$GcoDAt, $80 ERAT COMPARE EXPECTE 


0A Oo WITH “DATA READ FROM 
753 ! BRANCH IF GOOD 


e4 
;AFTER SETTING ott BIT 8S 
; IN Ros TO INIT THE RH 
WRITING A 


; COUNT Bat TERN O THRU 7 

Syke RHDOB TO FILL IT 
THEN ON READING RHOB THE 

: FOURTH TIME 

:RHDOB SHOULD HAVE 3 

;BUT CONTAINED WHAT IS 

;GIVEN IN BAD RHDB 


;FIFTH WORD TO BE READ 
;GET GOOD = 0 


JRHDB , SBDDAT ;READ RHDB FOR COMPARISON 
$GDDAT, $BDDAT ; COMPARE EXPECTED 
; A WITH DATA READ FROM 


HOB 
773 ;BRANCH IF GOOD 


24 
;AFTER SETTING “CLR” SIT #5 
;IN ate TO told THE RH 
:AND WRITING A 


i COUNT roo aa O THRU 7 

O RHOB TO FILL IT 
ETHEN ” READING RHOB THE 
jE IF TH TIME 
RHOB SHOULD HAVE 4 
{BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHOB 


;SIXTH WORD TO BE READ 


HOS 


SERHADO MACY 1 301104) 2i-DEC-77 13:0p PAGE 99 pales 
SERNAD PII 2i-OEC-F> 15:46 SILO TEST 4 (COUNT PATTERN) =E9 
4997 O1SY5O 012737 900005 001124 MOV #5, SGDDAT GET GOOD = 0 
y 
4399 O1SYS 017737 166420 901126 Mov QRHDB, SEDDAT READ RHOB FOR COMPARISON 
484 33 1124 
7 Banta cect late a DATA WITH DATA READ FROM 
e002 
S093 o1S¥7e 002401 BE. 738 !BRANCH IF GOOD 
me ee ;AFTER SETTING “CLR” BIT #5 
5006 'IN RHCS2 TO INIT THE RH 
> ;AND WRITE 
2558 SCOUNT PATTERN O THRU 7 
5009 INTO RHDB TO FILL IT 
5010 : THEN OW READING RHOB THE 
opis ‘RHDB SHOULD HAVE 5S 
E013 !BUT CONTAINED WHAT IS 
5014 GIVEN IN BAD RHDB 
BOIS o1S47 798: 
6017 oO1S476 O12737 000007 oD4EE4 ‘MOV. #7, SILONM ;SEVENTH WORD TO BE READ 
sois :CHECK THAT RHDG | HAS 6 
S019 O1SS04 012737 D000 O01124 hov #6, SGDDAT :GET GOOD = 0 
Be, IEEE CT aS IU RRR SR, pee, ee coe german 
> m 
2083 — DATA WITH DATA READ FROM 
pe he west Bion einen F000 
e0s7 . AE TER SETTING “CLR” BIT #5 
£959 RHCSe 10 INIT THE RH 
5029 5 AND WRITIN 
5030 Sa" PATTERN ©. Q THEY 7 
£031 IT 
5032 THEN ON READING “RHODE THE 
5033 : SEVENT TIME 
5034 BHOB SHOULD HAVE & 
5035 ‘BUT CONTAINED WHAT IS 
5036 GIVEN IN BAD RHDB 
S037 18832 B18: 
5039 015$32 0127327 ocDDDIO jcO4eE4 #8. , SILONM ;EIGHTH WORD TO BE READ 
E040 MENECK THAT RHDB HAS 7 
S041 C1SS40 012737 000097 oD1124 hov 7, $GDDAT :GET GOOD = 0 
5042 O1SS46 017737 166330 001126 MOV JRHDB,SBDDAT =; READ _RHDB FOR COMPARISON 
Eo44 615654 622737 OD11D4 OO11DE CMP $GODAT.SBDDAT COMPARE EXPECTED 
S045 DATA WITH DATA READ FROM 
S047 o1SS62 001401 BEO 933 ?BRANCH IF GOOD 
So4e O15se4 id4ce4 ERROR 24 
=049 ;AETER SETTING "CLR" BIT #5 
50s0 tIN RHcSe 10 INIT THE RH 
5051 SAND WRITING A 
Ege ‘COUNT PATTERN O THRU 7 


I08 


CERHADO MACYi1 30:10% 6) 2i-DEC-77 13: 7, B ten 190 


CERHAD.F 11 2i-DEC-77 12:48 SILO TEST 4 (COUNT PATTERN) SEG 0099 
5053 ; INTO RHOB TO FILL IT 
sos : THEN ON READING RHOG THE 
soss ; EIGHTH TIME 
Sos6 RHOB SHOULD HAVE 7 
Sos? But CONTAINED WHAT IS 
50s8 GIVEN IN BAD RHOB 
5o0sS oisste 833: 

S066 

5061 

5062 CHECK THAT RHCS2 HAS IR 

5063 O1SS6& 012737 oOO010o o01124 hov #IR, SGDDAT ;GET GOOD = 100 

2060 018874 053737 oOOSOiO o011e4 BIS UNTt. $GODAT ; INCLUDE unt NUMBER 

S066 015602 917737 166262 001126 MOV JRHCS2,$BD0DAT  ;READ RHCS2 FOR COMPARISON 
5067 O15610 023737 O011e4 OO01126 CMP $GDDAT;$BDDAT ;COMPARE EXPECTED 

2068 iDA ares WITH DATA READ FRO 
S070 O1S6i6 cO1401 BEG ess + BRANCH IF GOOD 

S071 ois620 io040es ERROR 25 : 

S07 ;AF TER SETTING aot Re BIT a#S 
507 IN RHCSe TO INIT THE RH 
so74 :AND WRITING A 

5075 : COUNT PATTERN 0 THRY ? 
S076 INTO RHDB TO FILL IT 

5077 i THEN ON READING RHDB THE 
5078 TOTAL 8 TIMES 

5079 SRHCSE SHOULD HAVE IR 

5080 =10 

5081 : TOGETHER WITH UNIT NUMBER 
sos8e2 :BUT CONTAINED WHAT IS 
5083 :GIVEN IN BAD RHCS2 

Soe4 oisee2 ass: 

soes CHECK THAT RHCS1 HAS DVA!RDY 

2086 O01S622 012737 904200 001124 hov sDVA'RDY,SGDDAT ;GET GOOD = 4200 

S088 015630 017737 166224 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
S0as 015636 023737 OO112e4 00i126 CMP $GDDAT’S$BDDAT ;COMPARE EXPECTED 

BRa0 3 DF oe sae DATA READ FROM 
S092 O1Se44 O01401 BEQ 87% :BRANCH IF GOOD 

SO93 O1sé4e 104026 ERROR 26 

5034 ;AFTER SETTING TotRe BIT ss 
per INR Hee re A INIT THE RH 
$0397 : COUNT PATTERN, ts) THRU 7 
5098 :INTO RHDB TO FILL IT 

oos¢ : THEN ON READING RHOB THE 
5100 s 1OTa 8 TIMES 

ste RHCS1 SHOULD HAVE DVA!RDY 
e104 BUT ConranveD, ure ” 
Seige nh ECK THAT RHCS? HA 

2 CHECK THAT RH HAS O 

2107 0:5650 012737 sOo0C0D o01124 hov #0, $GODAT :GET GOOD = 0 

~saw 


JOS 


CERHADO MACYi1 3011046) e2i-DEC-77 13: ve Bea 10i 
CERHAD.P11 21-DEC-77 12:48 


AD. SILO TEST 4 (COUNT PATTERN) 

S109 OiS6S&6 917737 166250 001126 MOV QMRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
4 737 4 O01126 CMP $GDDAT;S$BDDAT :COMPARE EXPEC 

2it0 ee er a . ip Resa DATA READ FROM 
Sile 
cits BISESS TB4dBt EFor 398 srotinge is 

a ‘ u c ‘ 
S1is AFTER SETTING “CLR” BIT #S 
Siié !IN RHCSe TO INIT THE RH 
S117 :AND WRITING A 
5118 ; COUNT PATTERN O THRU 7 
5119 NTO RHDB TO FILL IT 
5120 THEN ON READING RHOB THE 
5121 :TOTAL 8 TIMES 
Slice :RHCS3 SHOULD HAVE _O 
Sie3 :BUT CONTAINED WHAT IS 
Sie4 :GIVEN IN BAD RHCS3 
Si2S 015676 eas: 
5126 CHECK THAT RHBA HAS OC 
Bie? 915676 012737 oo0000 901124 Mov #0, $GDDAT ;GET GOOD = O 
S129 015704 017737 166154 001126 MOV JRHBA, SBODAT ;READ RHBA FOR COMPARISON 
6130 015712 623737 001124 oO01126 CMP $GDDAT, SBDDAT ; COMPARE EXP 
2131 pare r WITH BATA READ FROM 
5133 015720 001401 BEQ 315 :BRANCH IF GOOD 
S134 015722 104050 ERROR 30 
5135 ;AFTER SETTING “CLR” BIT #5 
5136 :IN RH cSe TO INIT THE RH 
5137 tAND WRITING A 
5138 ; COUNT PATTERN O THRU 7 
51393 : INTO RHOB TO FILL IT 
£140 ; THEN ON READING RHDB THE 
Si4i TOTAL 8 TIM MES 
Sie  RHBA SHOULD HAVE 0 
5143 :BUT CONTAINED WHAT IS 
S144 ‘GIVEN IN BAD RHBA 
S14S 015724 913: 
S146 m ;CHECK THAT RHBAE HAS O 
Tele 615724 012737 oo0000 9601124 MOV #0, SGDDAT ;GET GOOD = 0 
S149 015732 017737 166172 OO1126 MOV DRHBAE,SBDDAT ;READ RHBAE FOR COMPARISON 
5150 015740 0623737 001124 OO1126 CMP $GDDAT ; $BDDAT ; COMPARE EXP 
Bias ;DAT “tt WITH DATA READ FROM 
5153 O1S74& OO140i BEQ 93% ! BRANCH IF GOOD 
5154 o15750 i04031 ERROR 31 
51S5 ;AFTER SETTING “CLR” BIT #S 
S156 i IN RHCSe TO INIT THE RH 
S157 AND WRITING A 
5158 ‘COUNT PATTERN. 0 THRY ? 
5159 INTO RHDB TO FILL IT 
5160 : THEN ON READING RHOB THE 
S161 :TOTAL @ TIM MES 
S162 :RHBAE SHOULD HAVE O 
5163 :BUT CONTAINED WHAT IS 
Sié4 :GIVEN IN BAD RHBAE 


: MACYIL 30(104G) 2i-DEC-77 13:0 PAGE 102 
Sah ve ee aot 15358 SILO TEST 4 (COUNT PATTERN) 


018752 933: 
-CHECK THAT RHWC HAS O 
018752 012737 oo00000 001124 Mov #0, SGDDAT :GET GOOD = 0 
015760 017737 166076 001126 MOV JRHWC , SBODAT ;READ RHWC FOR COMPARISON 
7 737 4 001126 CMP SGDDAT,$BDDAT ;:COMPARE EXPECTED 
ere ore ‘pare M WITH DATA READ FROM 
g15774 01401 BEG 358 :BRANCH IF GOOD 
Ve 104 
;OF TER SETTING *oLR" BIT #S 
IN RHCS¢ TO INIT THE RH 
:AND WRITING A 
:COUNT PATTERN O THRU 7 
:INTO RHDB TO FILL 
! THEN ON READING RHDB THE 
: TOTAL 8 TIMES 
:RHWC SHOULD HAVE 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 
016000 9ss: 


wer ans atc chain os ee 
‘kTE ST SILO TEST S (FLOATING ONES) 


DQDOVOVOOWOVDVOVWVO DNDN VDODDOODDODMDOO VINNY IIIT TO 8 
MEW OOD NOU£L WM OWDNOUIEL WM OWDNOU SW OWD SOU 


WWIUITUNUN TUT UT On Cn CT CT UT UT UU UT TUT OT Cn Gn UT OT UO UU UU Un at 
TODD 1 i be ee be eb hb be be ee es 


: RHCS wie CHECKED To HAVE” R” (BIT #6) HIGH, 
: * 
: # EIGHT WORDS. A PATTERN OF FLOATING ONES (1,2,4,10,20,40, 100,200) 
;# IS WRITTEN tNTO 
: # “OR" (BIT #7 IN RHCS2) IS WAITED FOR BY A TRAP 
:# INSTRUCTION CALLED ™ sate 
:#* THEN RHCS2 IS CHECKED TO IR™ LOW AND 
;* "OR" HIGH TOGETHER WITH THE VENIT UMBER 
;* THEN RHDB IS READ AND COMP: TO HAVE THE 
:# RIGHT VALUE AFTER EACH OF THE EIG HT READS 
;* THEN RHCSe 1s CHECKED TO HAVE “ 
. * 
2 i+ THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
20 ;* CHECKED TO’HAVE THE APPROPIATE’ VALUE 
5206 rae ee eee 
5207 016000 ooDc04 +éT15: SCOPE 
S208 O16002 012706 o01000 MOV aSTACK, SP ;RESET STACK 
2209 016006 012737 O0001S ooY4ESE MOV #15, a8tSTNM :SAVE TEST NUMBER 
S211 16014 004737 oO40306 JSR PC, J#CLDISK ;GIVE RH INITIALIZE 
Sele :SETUP UNIT NUBER 
pe13 :CLEAR RHWC AND FUNCTION BITS IN RHCS1 
5215 
est& ;CHECK THAT RHCS2_ HAS I 
S217 016020 012737 000100 001124 MOV #1R,$GDDAT ;GET GOOD = 100 
pele 016026 053737 OOSOi0 O01124 BIS UNIT, $GDDAT t INCLUDE UNIT NUMBER 
4 
S220 016034 017737 166030 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 


LOS 


CERHADO MACY11 30(1046; 2i-DEC-77 13: a PAGE 103 


CERHAD.P11 21-DEC-77 12:48 T1s SILO TEST S (FLOATING ONES) SEG 0102 
5. 016042 923737 001124 001126 CMP SGDDAT,SBDDAT  ;COMPARE EXPECTED 
2552 :DATA WITH DATA READ FROM 
5223 
See4 016050 001401 BEG 65S : BUCS IF GOOD 
Sees 016052 104006 ERROR 6 
5226 seer R TIING “CLR” BIT aS 
? Hes NIT THE RH 
2555 ND HAV No” D N NOTHING 
S229 on 
pe30 ;RH 32 SHOULD HAVE IR 
5232 i TOGETHER WITH UNIT NUMBER 
S233 :BUT CONTAINED WHAT IS 
be 4 :GIVEN IN BAD RHCS2 
S 016054 65S: 
5236 
5237 sonta 1Scteg oe rs * RHDB TO FILL IT 
S239 016054 012701 o00001 MOV asl ‘ 100 + FING READY To FLOAT ONES 
S240 016060 012702 o000i0 MOV +t Re COUNTER -8 % WORDS 
S241 016064 010177 166012 1$: MOV Ri, JRHOB HRI TE INTO RHOE 
42 01607 906301 ASL R1 Ti ONE POSITION LEFT 
43 016072 005302 DEC Re i COUNT a 
S244 016074 001373 BNE 1$ *BRANCH IF 8 NOT DONE 
524s “WAIT FOR OR BIT IN RHCSe ee R TO 
S246 016076 104411 WAT Rare. SUBROUTINE 
5247 016100 004070 Rese ANN WALT FOR OR BIT IN 
Se4e 016102 oo0200 OR Se REGISTE 
5249 Ie ERROR Occ URS ite E 
5250 T Sore NOT 
5251 SET oR T Fue cour 
Bese N OF THE WAIT IT. T SUBROUTINE 
esed ae THAN SOO At tea 
5256 
eSeq 16104 612737 OO00200 001124 gpm "OR ScoBAT _ D = 
pes piei?3 053737 etetstabte 001124 BIS oNtt SgRRBA DAT " GEz, 690 UNI OS UMBER 
16120 165744 001126 MOV JRHCSe, » $BDDAT ;READ RHCS2 FOR COMPARISON 
16126 001124 001126 CMP SGDDAT;$BDDAT ;COMPARE EXPECT 


;DA oo DATA READ FROM 
BE The ‘BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #5 
:IN_RHCSe TO INIT THE RH 
;AND HA WRITTEN 


TT 
; une Rape TO Ftee tT 
CS2 SHOULD HAVE OR 


<2 
TOGETHER WITH UNIT NUMBER 
:BUT CONTAINED WHAT IS 





MOS 
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CERHAD.P1i 21-DEC-"" 12:48 T1S SILO TEST S (FLOATING ONES) SEG 0:03 
BSSE pe - ;GIVEN IN BAD RHCS2 
78 026140 67S: 
Se79 
S280 


eee, ‘Shae ete 2 
CERHAD.P11 


5281 


016140 
016146 


016154 
016162 


016174 


016174 
016202 
016210 
O016e16 


016224 
O0lbe26 


016230 


016230 
016236 


016244 
01l6eSe 


21-DEC-77 


012737 
012737 
017737 
023737 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


012737 
012737 


017737 
023737 


21-DEC-77 
12:48 


ooo001 
000001 


165722 
001124 


o0000e 
o00002 


165666 
001124 


000003 
000004 


165632 
001124 


004664 
001124 


001126 
001126 


004664 
001124 


001126 
001126 


004664 
001124 


001126 
001126 


69S: 


71S: 


NO8 


SILO TEST S (FLOATING ONES) 


13:06 ta - 105 


MOV #1,SIL ;FIRST WORD TO BE READ 
-CHECK THAT RHE HAS 1 
Mov #1, $GDDAT ;GET GOOD = 0 
MOV JRHOB, SBDDAT ;READ RHDB FOR COMPARISON 
CMP S$GDLAT,SBDDAT COMPARE EXP 
DATS WITH DATA READ FROM 
BEG 693 :BRANCH IF GOOD 
ERROR 24 
;AFTER SETTING “CLR” BIT #5 
IN RHCS2 TO INIT THE RH 
+ AND NG A PATTERN OF 
FLOATING G ONES (HHICH IS 
atti 6 RAD ban TO FILL fT 
: THEN on READING RHOB THE 
:FIRST T IME 
;RH *. SH 


BNTAINED. WHAT 
;BU AINED AMHAT IS 
‘BIVEN. IN BAD RHDB 


MOV #2, SILONM ;SECOND WORD TO BE READ 
-CHECK THAT RHDB HAS 2 


MOV #2, SGDDAT ;GET GOOD = 0 
MOV JRHOB, SBDDAT ;READ RHDB FOR COMPARISON 
CMP SGDDAT,SBDDAT ;COMPARE EXPECT 

:DATA WITH DATA READ FROM 
BEQ 71% ? BRANCH IF GOOD 
ERROR 24 


;AFTER SET. ING “CLR” BIT #5 
IN RHCS2 TO INIT THE RH 
AND WRITING A PATTERN OF 
jFLOATING eo TOA Ooo). 
HATO “geb8 ts ee b 
Rica bybe THE 


CE EOND T 

;RHOB SHOULD HAVE 2 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHDB 


MOV #3, SILONM ; THIRD WORD TO BE READ 
: CHECK THAT RHDB | HAS 4 


MOV 4, SGDDAT ;GET GOOD = O 
MOV JRHOB, SBDDAT ;READ RHDB FOR COMPARISON 
CMP $GDDAT,$BDDAT ;COMPARE EXPECTED 


;DATA WITH DATA READ FROM 


SEG 0104 


CERHADO Phe er! de 


CERHAD . F 


S351 0616264 


S354 616264 
$256 016272 
S356 016300 
$359 016306 
S362 016314 

016316 


5375 016320 


$378 016320 
$380 016326 


$382 016334 
5383 016342 


DEC-77 


012737 
012737 
017737 
023737 


001401 
1040e4 


012737 
012737 
017737 
023737 


001401 
104024 


2i-dEC-77 
12:48 


000004 
000010 


165S76 
001124 


ooooos 
000020 


165542 
001124 


004664 
001ie4 


G0ile6 
001126 


004664 
001124 


001126 
001126 


7SS$: 


13: 0G PAGE 106 
1S SILO TEST S 


BEO 
E2ROR 


BOS 


73% 
e4 


LONM 
OME CK That” RDB HAS 10 


MOV 


MOV 
CMP 


BEQ 
ERROR 


MOV 
hov 


MOV 
CMP 


BEQ 
ERROR 


0, SGODAT 


ORHDB, SBDDAT 
$GODAt, SBDDAT 


75$ 
24 


#S,SI 


LONM 
CHECK THAT RHDB HAS 20 
#20, SGDDAT 


SRHDB , $BDDAT 
$GDDAt, SBDDAT 


773 
e4 


(FLOATING ONES) 


; RHOG 
;BRANCH IF GOOD 
;AFTER SETTING “CLR” BIT aS 


j IN Wa A TO yt THE RH 
TONES. WHIeH TS 


;FOURTH WORD TO BE READ 
;GET GOOD = 0 

;READ RHDB FOR COMPARISON 
; COMPARE EXPECTED 

ere WITH DATA READ FROM 
;BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #5 
N_RHCSe TO INIT THE RH 


; TH 

+a a HAVE 10 
;BUT CONTAINED WHAT IS 
‘ BYVEN IN BAD RHOB 


;FIFTH WORD TO BE READ 
;GET GOOD = 0 

;READ RHDB cor COMPARISON 
; COMPARE EXP 

‘Rare WITH DATA READ FROM 
;BRANCH IF GOOD 


;@FTER SETTING sf a a © #5 
:IN R THE R 


;1,2,4,10,20,40, 100,200) 


CERHADO MACYI1 30: 1046) 


CERHAD. 


Pil 


016354 


016354 
016362 


016370 
016376 


016404 
016406 


0i641C 


016416 
0.5416 


Cib444 


e1-DEC-77 


012737 
012737 
017737 
023737 


001401 
1040e4 


012737 
012737 
017737 
023737 


001401 
io040e4 


2i-DEC-77 


12:48 


000006 
000040 


16SS06 
001124 


000007 
000100 


b6r 124 


004664 
001124 


001126 
0Cii2eé 


OO4664 
001124 


15 


733: 


813: 


COS 


13: Ob PAGE 107 


SILO TEST S (FLOATING ONES) 


MOV #6, SILONM 
; CHECK THAT RHOB HAS 40 


MOV 40, $GDDAT 

MOV ORHOB , SBDDAT 
CMP $GDDAT, SBDDAT 
BEO 79 

ERROR 24 


MOMECK that? Rhos. HAS 100 


MOV #100, SGDDAT 
Cae ebb et eBboaT 


BEQ 81$ 
ERROR e4 


; INTO RHDB TO FILL IT 
; THEN ON READING RHODE THE 


REO" AED wave 20, 


BUT CONTAINED W 
:GIVEN In BAD RHDB 


;SIXTH WORD TO BE READ 

;GET GOOD = 0 

;READ RHOB FOR  aterrangene 

: COMERS ORF acR READ FRO 
‘esc IF GOOD 

;AFTER SETTING “CLR” a aS 


Anoruayt ng. a PATTERN 9 OF 
Hs faba 


BHOS, Bem, BYE AO, 
:GIVEN IN BAD RHDB 


;SEVENTH WORD TO BE READ 
;GET GOOD = 0 


COMPARE EXPEC catia 
:DATA WITH DATA READ FROM 


;RHOB 
;BRANCH IF GOOD 


sAFTER SETTING “CLR™ BIT 85 
!IN RHCSe TO INIT THE RH 
!AND WRITING A PATTERN OF 
eee ng Soe iss dob 

: LAT #4" RHOB TO F 

: THEN N READING. buDB THE 


S TH IM 
;RHOB SHOULD HAVE 100 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHDB 


DO 
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CERHAD.P11 21-DEC-77 12:48 TIS SILO TEST S (FLOATING ONES) 
544 
4664 MOV #8. , SILONM SEIGHTH WORD TO BE READ 
4 g 016444 012737 000010 ocO4E6 MOV oy THEE Babe Mas 200 
suse 016452 012737 000200 001124 MOV #200, $GDDAT GET GOOD = 0 
4 
yey 4 S416 901126 MOV DRHDB.SBDDAT. =; READ RHDB FOR COMPARISON 
pues 8} see B35535 7 BF 1126 CMP $GOLAT,SGCDAT ;COMPARE EXPECT 
S45 ipara WITH DATA READ FROM 
4 
S458 Q1eN74 001401 BEG 838 !BRANCH IF GOOD 
Su 1647S 104024 
;AFTER SETTING “CLA” B17 aS 
ede? ne8s 18 uit PAE Aa 
5462 FM Q PATTERN OF 
edes 8 ai 80 Hb S005 
546s INT 8. Rua T FELL fT 
Supe :THEN ON Gh READING RHOB THE 
467 ‘eiS HTH TIME 
ees BUS CONTAINED WHAT 1S 
eye8 Bur. YN BAD RHOB 
6471 o1es00 635: 
By? 
By? 
cu7y CHECK THAT RHCS2 HAS IR 
E475 016500 012737 O90100 001124 hov #1R, SGDDAT :GET GOOD = 100 
s47@ O1€80b 053737 008010 O011e4 BIS UNIT. $CODAT INCLUDE UNIT NUMBER 
Bet RMT QUE WOT SOLE «=| | CRRERE-EERRNT tpppsrees cee gorpmezsn 
5480 ™ :OATR_ WITH NOATA READ FROM 
S482 016530 001401 BEQ ess :BRANCH IF GOOD 
Sups Ole632 104026 ERROR 25 
Sug4 ;AETER SETTING "CLA" BIT 95 
548s . IN RHCS2 TO INIT THE RH 
Suse AND WRITING A PATTERN OF 
5487 {FLOATING QNES (WHICH 1S 
5489 ; athe Aiba” oe PtP fr 
5490 ;THEN ON READING NG RHDB THE 
549i TOTAL’ TINES 
Eygo :RHCS2 SHOULD HAVE IR 
5495 100 
5494 i TOGETHER WITH UNIT NUMBER 
Bugs BUT CONTAINED WHAT IS 
Suge GIVEN IN BAD RHCS2 
E4y9? 016534 ass: 
S498 -CHECK THAT RHCS1 HAS DVA!RDY 
6435 O16S34 012737 904200 O01124 hov SDVAIRDY,SGDDAT ;GET GOOD = 4200 
S01 O1eS42 017737 165312 001126 MoV DRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
E02 OlesS0 023737 001124 OD1ISE CMP $GDDAT’ SBDDAT : COMPARE EXPECTED 
E05 BATA WITH DATA READ FROM 


5504 ;RHCS1 


Bi-DEC-77 le: 


ee MACY11_ 30‘ 1046) 


HPD .F 


$510 


WIUIUTUTUNU TUTTO 
WUT UT UT UT 
= b= b+ B= = ee 
OD OUT £ Wwrue- 


5520 


016SS6 
016560 


016562 
0i6S6e 


0i66i0 
016610 


O16E16 
0166e4 


00i40i 
104026 


312737 


612737 


017737 
023737 


o00000 O0011e4 


165336 001126 
O0iie4Y OOlice 


000000 OO0lieY4 


l6Se4e O01i26 
00iie4% 001126 


2i-DEC-77 13:06 
48 


Tis 


878: 


B9$: 


PAGE 


EOS 


i993 
SILO TEST S (FLOATING ONES) 

BEQ 87 ;BRANCH IF GOOD 
ERR 26 


OR 

: AFTER SETTING “CLR” BIT #5 
;IN R HCSe TO INIT THE RH 
!AND WRITING A PATTERN OF 
{FLOATING G ONES, (WHICH 1S 
LIAO" hi i) % Pree OF 

N ON READING RHDB THE 

TOTAL 8 TIM 

:RHCS i SHOULD HAVE DVAIRDY 


42 
iBuT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


;CHECK THAT pet HAS 0 


MOV #0, SGDDAT ;GET GOOD = 0 
MOV DRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GCDAT;$BDDAT ;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
:RHCS3 
BEG 898 :BRANCH IF GOOD 
ERROR 27 


AFTER SETTING “CLR” BIT #5 
PIN wt 36) TO aNTO artetes RH 


: AND TING A P N OF 
galing eg a 
; INTO RHOb TO FILL 

! THEN ON READING RHDB THE 
‘TOTAL 8 TIMES 

:RHCS3 SHOULD HAVE 

‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS3 


:CHECK THAT RHBA HAS O 
MOV 80, SGDDAT ;GET GOOD = O 


MOV @JRHBA , SBDDAT ;READ RHBA FOR COMPARISON 
CMP $GODAtT, SBODAT ; COMPARE EXPECTED 

:DATA WITH DATA READ FROM 
BEG 913% : BRANCH IF GOOD 
ERROR 30 


;AFTER SETTING “CLR” BIT #5 
:IN_R HE R 


STATO. be pa To FIL 
;THEN ON REA DING RHOB THE 
; TIMES | 


8 
;RHBA SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHBA 


RHADO MACYL1 30(104G) 2i-DEC-77 13:06 PAGE 110 
cERNAB CP Tl -2i-bec-F> 12:48 Tis SILO TEST S (FLOATING ONES) 


6 31$: 

eeee — -CHECK THAT RHBAE HAS 0 
sees 016636 012737 ooo000 O01:e4 Mov #0, SGODFT ;GET GOOD = 0 

S 016644 017737 165260 OC11e6 MOV @RHBAE , SBDDAT ;READ RHBAE FOR COMPARISON 
eee 0166S2 023737 0011e4% o01126 CMP $GDDAT, SBDDAT : COMPARE EXPECTED 
SS67 :0A ATA WITH DATA READ FROM 
5568 : RHBAE 
SS6S 016660 001401 BEG 935 : BRANCH IF GOOD 
sS70 016662 104031 ERROR 31 


5$71 ;AFTER SETTING “CLR” BIT s#& 


5572 :IN RHCSe TO INIT THE RH 
5572 !AND WRITING A PATTERN OF 
ee-¢ rent, 20-40. 100 S00) 
Bese itAFO Ape 70 FILL tt 
5577 : THEN ON READING RHDB THE 
557 TOTAL @ TIMES 
5579 ;RHBAE SHOULD HAVE 0 
5580 :BUT CONTAINED WHAT IS 
5581 :GIVEN IN BAD RHBAE 
5582 016664 93$: 
5583 :CHECK THAT RHWC HAS O 
eo84 C16664 012737 oOD000 o01124 MOV #0, SGDDAT ;GET GOOD = 0 
5586 016672 017737 165164 001126 MOV JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
5587 016700 023737 001124 001126 CMP $GODAt, SBDDAT ; COMPARE EXP 
3588 ;DATA ara WITH DATA READ FROM 
5590 016706 001401 BEG 9s BRANCH IF GOOD 
5591 C16710 154022 ERROR 32 
5592 ;AFTER SETTING “CLR” BIT #5 
5593 tIN RHCSe TO INIT THE RH 
5594 :AND WRITING A P RN OF 
Sege ee ae 20 80 too 5003 
5597 INTO RHDB TO FIL 
559e : THEN ON READING RHOB THE 
5599 ; TOTAL 8 
5600 :RHWC SHOULD HAVE O 
5601 :BUT CONTAINED WHAT IS 
5602 ats :GIVEN IN BAD RHWC 
5603 016712 9S$: 
5604 
Saad 
S607 =» EHKESSEAEAEKRESSKREEKE SES SKAKKALHREKHEKRASFASAHREAAAEAEFAFFRAAKALAHFAE 
2608 TEST 16 SILO TEST 6 (FLOATING ONES IN UPPER BYTE) 
5610 :* AFTER A RH CLEAR 1s GIVEN (SET BIT #S IN RHCS2) 
S611 : # RHCSe IS CHECKED TO HA VE “IR” (BIT #6) HIGH, 
Sele ;* TOGETHER WITH UNIT UMBER 
S612 : EIGHT WORDS PATTERN OF FLOATING ONES IN UPPER BYTE 
Bei4 1* 400, 1000, 2060 Oat" +4000 10000, 20000, 40000, 100000 

~) ce 
Seié 1* “OR” (BIT “? tc Rice) IS WAITED FOR BY A TRAP 


2 ate ag MACYi1 eS eB 
Pli 2i-Dec 


CERHAD . 


Cie7beE 


ooocc4 
Gl1e706 
Die?3? 


004737 


01270i 
012702 


001373 


104411 
004070 
o00e00 


2i-DEC-77 
i2:46 


001900 
0000 it 


040306 


900100 
00s0i0 


165116 
001124 


0906400 


000010 
165100 


OO4656 


001124 
001124 


001126 
OOiies 


13: i “= ill 


‘eeeueeeve 


GO9 


SILO TEST & (FLOATING ONES IN UPPER BYTE! 


INSTRUCTION CALLED “WAT” ——s 
THEN RHCS2_IS CHECKED TO_HAVE TR" LOW AND 
“OR” HIGH TOGETHER WITH THE UNIT NUMBER 
NRHOB IS. READ AND COMPARED TO HAVE T 
RIGHT VALUE AFTER EACH OF ThE EIGHT READS. 
THEN RHCSe 1S CHECKED TO HAVE “IR™ 


AND IT NUMBER 
THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
CHECKED TO’HAVE THE APPROPIATE VALUE 


- FESRESESSERESELESEESES SHAE SSAA SHAE LERERAFSHRSHSSS SLASH SASH SSF SS 


sree’ 


18: 


SCOPE 
MOV aSTACK,SP sRESET STACK 
MOV #16, a8tTSTNM :SAVE TEST NUMBER 
R PC, JeCLOISK ;GIVE_RH INITIALIZE 
sia :SETUP UNIT NUBER ‘ 
: CLEAR Nuc AND FUNCTION BITS IN SHCS: 


;CHECK THAT RHCS2 HAS IR 


MOV IR, $GODAT ;GET GOOD = 100 
BIS UNIT. $GODAT INCLUDE UNIT NUMBER 
MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP $GDDAT;$BDDAT :COMPARE EXPECTED 

30A ATA WITH DATA READ FROM 
BEO 65% : BRANCH IF GOOD 
ERROR 6 


sont R oes 1h “CLR” BIT s& 
HCSe TO INIT THE RH 
AND HAVING DONE NOTHING 


LSE 
‘RteSe SHOULD HAVE IR 
 TOGE THER WITH pa tes 


:BUT CONTAINED W 
:GIVEN IN BAD Ricee 


;WRITE EIGHT WORDS INTO RHOB TO FILL IT 
:DATA IS 400, 1090, 2000, 4000, 10000, 20000, 40000 


hov #400,R1 GETIZNG., READY TO FLOAT ONES 
MOV #8. ,R2 : COUNTER ay DATA WORDS 

MOV R1, YRHDB jWRITE INTO RHDB 

ASL RI SHIFT 1 ONE POSITION LEFT 
DEC Re ; COUNT TO 


BNE 1$ ‘BRANCH IF 8 NOT DONE 
;WAIT FOR OR BIT IN RHCS2 REGISTER TO SET 
WAT ;TRAP TO WAIT.T SUBROUTINE 
RHCS2 :AND WAIT FOR OR BIT IN 
OR !RHCS2 REGISTER 

!IF ERROR OCCURS HERE 

:IT MEANS “OR™ DID NOT 


HOS 


CERHADO MACYi1 30: 104% 2@i-DEC-77 123: a PAGE ilé 


CERHAD. FLL 2i-DEC-77 12:48 i SILO TEST & (FLOATING ONES IN UPPER BYTE) 
» FOR THE F OUNT 
ebsg BB lin’ SF ite Wee. § UaRouT Ine 
? TH rite IS APPROXIMATELY 
ees : THE R THAN SOO M OTe E bho: 
67 
5678 
eEaC 017016 O 7 900200 oOlle ioe ™UOR oo ET GOOD oo 
1 127 4 = 
pei 617024 525535 505010 B6t isd Bis ontt SgQR BAT FEC. SBE uNIf NUMBER 
5683 017032 917737 165032 001126 noy SRHCS2, SBODAT READ Tescee FOG COMPARISON 
2eg¢ 9! ver or. Senanes Seva OTR Ti DATA READ FROM 
5686 : RHCS2 
5687 017046 o0:401 BEO 67% :BRANCH IF GOOD 
568s 017050 if4o0e3 ERROR 23 
5689 :AFTER SETTING “CLR” BIT 8S 
5690 >IN RHCSe TO INIT THE RH 
5691 i AND HAVING WRIT TIEN a 
5692 FLOATING ONES PATTERN INTO UPPER BYTE 
5633 ‘460 1009 2000, 4000. 10000, 20000 
5694 3 400 
5695 INTO AHDB FILL IT 
5696 i RNCS2 CpeULD HAVE OR 
5697 =20 
5698 : TOGETHER WITH UNIT NUMBER 
5699 !BUT CONTAINED WHAT IS 
5706 :GIVEN IN BAD Riese 
$70i 017052 673: 
5702 
5703 
5704 
5705 oO170S2 012737 O09001 ocOD4e64 MOV LONM ;FIRST WORD TO BE READ 
5706 » CHECK That” bho H AS 4 
2707 017060 012737 ooo4OOo 001124 MOV 400, SGDDAT ;GET GOOD = 0 
S703 017066 017737 165010 001126 MOV JRHDB , SBDOAT ;READ RHDB FOR COMPARISON 
E710 017074 022737 001124 OOlise CMP $GDDAT,SBDDAT ;COMPARE EXPECTED 
Baik :DATA WITH DATA READ FROM 
S713 017102 o01401 BEO 69% BRANCH IF GOOD 
5714 O:7:04 io4oe4 ERROR 24 
o7i8 ;AFTER SETTING “CLR” 81 B17 aS 
2518 i AND RYT ine A BA THe Rn’ d OF FLOATING 
pie ;ONES (WHICH Is 400 1990, 2000, 4000, 
rd . 
2538 IRV A989, 42900. $9 
1 THEN on READING RHDB THE 


FIRST TIME 
i RHDB SHOULD HAVE 400 
;BUT CONTAINED WHAT IS 
69s :GIVEN IN BAD RHOB 





CERHADO MACY11 30( 1046) 
21-DEC-77 


CERHAD.P11 


017142 


017142 
017156 


017176 


012737 
012737 


7? 


O17 
52373° 


012737 
012737 


012737 
012737 


0i7727 
023737 


21-DEC-77 
12:48 


ooo0de 
061000 


1647S4 
001124 


000003 
002000 


164720 
601124 


ococo4 
004000 


164664 
001124 


OO4%664 
001ie4 


OC1126 
O00i1e6 


OO4S64 
001124 


001126 
001126 


OO4664 
001124 


001126 
001126 


I09 


13: TE PAGE 113 
T16 


SILO TEST & (FLOATING ONES IN UPPER BYTE) 


SECOND WORD TO BE READ 


MONE CK mat? bioe "uAS 1008 


Mov #1000, $CODAT 
MOV JRHOB , SBDDAT 
CMP $GDDAt, SBDDAT 
BEG 71S 
ERROR 24 


MOV 
ASHECK that? aioe "YAS 2006 


#2000, $GODAT 
MOV QRHOB, SBDDAT 
CMP $GDDAT, SBDDAT 


BEQ 73% 
ERROR 24 


738: 


MOV LONM 
CHECK hate biog HAS 4 


hov #4000, SGDDAT 
MOV JRHOB , SBDDAT 
COMP $GDDAt, $BDDAT 


;GET GOOD = 0 


;READ RHDB FOR ee 
; COMPARE EXPECT 
A WITH DATA READ FROM 


:RH AO 
:BRANCH IF GOOD 


;AFTER SETTING "oR" BIT 8S 
:IN RHCSe TO INIT THE R 
:AND WRITING A PATTERN OF FLOATING 
[ONES (WHICH IS 400, 1000, 2000,4009, 
: 10000, 20000, 40000, 100000 } 
IN NTO AHDB TO FILL IT 
THEN ON READING RHDB THE 
:SECOND TIME 
: RHDB SHOULD HAVE 1000 
!BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


; THIRD WORD TO BE READ 
;GET GOOD = 0 


;READ RHDB FOR COMPARISON 
; COMPARE EXPECTED 
DAT A WITH DATA READ FROM 


RHOB 
: BRANCH IF GOOD 


;AFTER SETTING "oLR" BIT aS 
:IN RHCSe TO Intr THE RH 
; AND WRITING A PATTERN OF FLOATING 
ONES (WHICH IS 400, 1000,2000,4000, 
: 19000 20000 , 40000, 1d0 006) 
!INTO RHDB TO F 
: THEN on BEADING bye THE 
i THI RD TIME 

RHDB SHOULD HAVE 2000 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHOB 


;FOURTH WORD TO BE READ 
;GET GOOD = 0 
;READ RHOB FOR COMPARISON 


; COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
RHOB 


ote gall Y wher 30‘ i104 
CERHAD.P 21-DEC- 


017226 
B1oS30 


017232 


017232 
017240 
017246 
017254 


017262 
017264 


017266 


017266 
017274 


001401 
104Ge4 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


6) 
ced 
ve 


2i-DEC-77 
8 


12:4 


o0000s 
010000 


164630 
001124 


000006 
020000 


164574 
001124 


OG4664 
001124 


001126 
O011ec6 


OO4664 
001124 


001126 
O0011e6 


™“ 


13:06 PAGE 11 
T16 


JOg9 


4 
SILO TEST & (FLOATING ONES IN UPPER BYTE) 
753 ;BRANCH IF GOOD 


BEG 

ERROR 24 
; AFTER aE' TING .F tH BIT sS 
;IN_RHCS2 TO AMET THE RH 
‘ONE WRITING A_ PATTERN OF FLOATING 


; 19000 20000, 40000, !a0008) 
‘INTO RHDB TO FILL 17° 

+ NEN ON READING bude THE 
:FOURTH TIME 

:RHOB SHOULD HAVE 4000 
:BUT CONTAINED WHAT IS 
!GIVEN IN BAD RHDB 


MOV -FIFTH WORD TO BE READ 
: CHECK That” cto” HAS 10000 


Mov #10000,$GDDAT ;GET GOOD = O 
MOV @RHOB, SBDDAT ;READ RHDB FOR COMPARISON 
CMP SGDDAT,SBDDAT ;COMPARE EXPECT 

DA Me WITH DATA READ FROM 
BEQ 77$ :BRANCH IF GOOD 
ERROR 24 

sOF TER. SETTING ToLR" BIT #5 

coe 9 TO INIT THE RH 
: AND “WR ING A PATTERN OF FLOATING 


> ONES A fs 400, 1000, 2000, 4000, 
10000, o000 40000, 100000) 

:INTO RHDB TO FILL IT 

i THEN on READING RHOB THE 


;F IF IME 

;RHDB SHOULD HAVE 10000 
:BUT CONTAINED WHAT IS 
GIVEN IN BAD RHDB 


MOV SIXTH WORD TO BE READ 
CHECK mat? RDS MWAS 20080 


hov #20000,$GDDAT ;GET GOOD = 0 
MOV JRHDB , SBDDAT ;READ RHDB FOR COMPARISON 
CMP $GDDAt, SBDDAT ; COMPARE EXPECTED 

‘pare Aare WITH DATA READ FROM 
BEG 79% :BRANCH IF GOOD 
ERROR 24 


;AFTER SETTING “CLR” BIT #5 
IN RHCSe TO INIT THE RH 
; AND WRITING A PATTERN OF FLOATING 
!ONES (WHICH IS 400, 1000, 2000, 4000, 
19000, 2c000, 40000 0, 1000 06) 

NTO RHOB TO FILL 


CERHADO MACY11 30: 1046; 
CERHAD.F1i 21-06-77 


017322 


017322 
017330 


017336 
017344 


017356 


017356 
017364 


0i741e 


=" € 


012737 
012737 
017737 
023737 


901401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


21-DEC-77 
12:48 


000007 
040000 


164540 
001124 


000010 
100000 


164S04 
001124 


004664 
001124 


001126 
001126 


OO46E4 
001124 


001126 
O01ie6b 


13:06 PAGE 
T16 


B1$: 


833: 


KOS 


0 TEST & (FLOATING ONES IN UPPER BYTE) 
; THEN ON READING RHOB THE 
:SIXTH TIME 
: RHDB SHOULD HAVE 20000 


:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHOB 


115 
SIL 


MOV LONM -SEVENTH WORD TO BE READ 
CHECK that? AtiOB HAS 4O0b0 


hov #40000,$GDDAT  ;GET GOOD = 0 
MOV JRHDB, SBDDAT ;READ RHOB FOR COMPARISON 
CMP $GDDAT,$BDDAT ;COMPARE EXPECTED 
pA Ta WITH DATA READ FROM 
81S :BRANCH IF GOOD 


BEQ 
ERROR e4 
ON RA SETTING 2F th BIT #S 


PURy re TO INT THE RH 
ING A PATTERN OF FLOATING 
ie. H IS 400, 1000,2000, 4000, 
0000 eet 40000 6,100 000) 


NTO RH HOB TOF 
HEN ADING™ RHOB THE 
SO NSH 


:1 
; IN 
is AME 
;RHDB SHOULD HAVE 40000 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHOB 


#8. ,SILONM -EIGHTH WORD TO BE READ 
MOMECK THAT’ RHDB HAS 100000 
MOV #100000,$GDDAT ;GET GOOD = O 
MOV JRHDB, SBDDAT ;READ RHDB FOR COMPARISON 
CMP $GDDAT, $BDDAT ; COMPARE EXPECTED 
eae 8 WITH DATA READ FROM 
835 :BRANCH IF GOOD 


BEQ 
ERROR 2Y 
;AFTER SETTING "CLR" BIT #5 
; IN N RHC coe TO INIT THE RH 
‘AND WRITING A PATTERN OF FLOATING 
; ONES (WHICH IS 400, 1000, 2000, 4000, 
10000, 20000, 40000, 1g00 06) 
SINT O AHDB TO FILL IT 
j THEN | ON READING RHOB THE 
tEIGHTH TIME 
: RHDB SHOULD HAVE 109900 
‘BUT CONTAINED W Is 
‘GIVEN IN BAD RH oB 


CERHADO en 30( 1046} 


CERHAD.P 


WNUIUTUTUTUT UU 
OWOOWD00DMOW 


017442 
O17444 


017446 
017446 
017454 
017462 


017470 
01747e 


017474 
017474 


21-DEC-77 
012737 
053737 
017737 
023737 


001401 
1040eS 


012737 
017737 
023737 


001401 
104026 


012737 


017737 
023737 


LOS 


2i-DEC-77 13:06 PA apes 116 


12:48 

000100 0cO 
00s010 oO 
164436 00 
001124 00 


O64e00 001124 


164400 001126 
0011e4% O01126 


oo0000 001124 


164424 O01126 
O011e4% O011e6 


BSS: 


87S: 


SILO TEST & (FLOATING ONES IN UPPER BYTE) 
;CHECK THAT RHCS2 HAS IR 


MOV #IR, SGODAT ;GET GOOD = 100 
BIS UNIT. $GCDAT ! INCLUDE UNIT NUMBER 
MOV QRHCS2,SBDDAT  ;READ RHCS2 FOR COMPARISON 
CMP $GDDAT, $BDDAT ; COMPARE EXPECTED 
;DATA_WITH DATA READ FROM 
BEQ 8s$ ‘BRANCH IF GOOD 
ieee os ert R SETTIN LR” ms al 
nce 1 Ent TH 
A PAT TERN TING 
bao ess A000, itebo 2000" 4000, 
0 AHS 7 F 
the ON REA Ne bude THE 
$f ALB 


sRucse SHOULD HAVE IR 

TOGE THER WITH UNTT NUMBER 
10 CONTAINED W Is 
;GIVEN IN BAD RHCSE 


CHECK THAT RHCS1 HAS DVA!RDY 


hov #OVA!'RDY,SGDDAT ;GET GOOD = 4200 
MOV QJRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GDDAT; $BDDAT ; COMPARE EXPECTED 
;DATA WITH DATA READ FROM 
875 + BRANCH IF GOOD 


BEQ 
+ TN RucSe TO Sit THe mM aS 


PATTERN OF FLOATING 
 10b80, S806, 48008, 16808050" “°° 
TIEN Of S °8 ap NG “RHOE iHE 
}RHCS1 SHOULD HAVE DVA!RDY 


4200 
iBUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS1 


;CHECK THAT RHCS3 HAS O 
Mov #0, SGDDAT :GET GOOD = 0 
MOV RHCS3, SBDDAT SAR RHCS3 FOR. COMPARISON 
CMP $GDDAT : SBDDAT on ARE 

a, + ee DATAS READ FROM 
BEG 89S BRANCH IF GOOD 
ERROR 27 


;AFTER SETTING “CLR” BIT #5 


CERHADO MACY11 30( 1046) 
CERHAD. 


Pil 


017522 
017522 


17530 
17536 


017SS0 
017550 
017556 
017564 


01757e 
017574 


017576 
017576 


MOS 


2i-DEC-77 13:06 PAGE 117 


21-DEC-77 12:48 


012737 


Bb3737 


012737 


017737 
023737 


001401 
104031 


012737 


oocooo 001124 


469330 001126 
OileY OOlleb 


ooooos 001124 


164346 001126 
001124 001126 


000000 001124 


T1l6 


89$: 


91$: 


933: 


SILO TEST & (FLOATING ONES IN UPPER BYTE) 


;1N RUGS TO INIT THE RH 
;AND WRITING A PATTERN OF Boe ood, 


Bh on Bod AgBRe F000 "009 


EADING RHDOB THE 
‘TOTA "a, 
;RHCS HOUL EO 
;BUT CONTAINED WHAT IS 


:GIVEN IN BAD RHCS3 
;CHECK THAT RHBA HAS 0 


MOV #0, SGDDAT ;GET GOOD = 0 
MOV JRHBA, SBDDAT ;REA RHBA FOR COMPARISON 
CMP $GDDAt, SBDDAT ARE EXPECTED 

DATA WITH DATA READ FROM 
BEQ 915 + BRANCH IF GOOD 
ERROR 30 


;AFTER SETTING “CLR” of aS 


Ato HRTTING ANBATIERN' ae OF FLOATING 


H IS 400, 1000,2000, 4000, 
#10080, eHo00 40000, 1960 5505 
:INTO RHDB TO FILL’ IT 
i THEN oN nines RHOB THE 


;RHBA_SHOUL 
Mes ee ates 


;CHECK THAT nites | HAS 0 


Mov #0, SGDDAT ;GET GOOD = O 
MOV @RHBAE,SBODAT  ;READ RHBAE FOR. COMPARISON 
CMP $GDDAT ; SBDDAT Sata at EXPECT 

ATA WITH DATAT Reap FROM 


BEQ 938 ‘BRANCH IF GOOD 
ERROR 31 
Ad SS TTING ft tHe a aS 
M5 Be Pe ay 


ae A _PATT ERI OF FLOATING 
5 thn oa IS old Fhe 0,4000, 


ine hie fede the 
;TOTAL 8 


BHOAE nt AVE O 
ay ONT RED WHAT IS 
VEN IN RHBAE 
;CHECK THAT RHWC_HAS O 


MOV #0, $GDDAT ;GET GOOD = 0 


SEG 0116 


NOS 


CERHADO MACY11 2 p06 0462 21-DEC-77 13:06 PAGE 118 
CERHAD- Pll 1-DEC-77 12:48 T16 SILO TEST 6 (FLOATING ONES IN UPPER BYTE) SEG 0117 
6009 017604 017737 164252 001126 MOV JRHWC , SBODAT ;READ_ RHWC FOR COMPARISON 
6010 O17612 023737 OO1i24 O01126 CMP SGDDAT,SBDDAT :COMPARE EXPECT 
B0il ‘pare WITH DATA READ FROM 
6013 017620 001401 BEO 9ss :BRANCH IF GOOD 
6014 017622 104032 ERROR 32 
6015 AFTER SETTING woLR™ BIT #S 
6016 ; IN RHCSe TO INIT RH 
6017 :AND WRIT ING A PATTERN OF FLOATING 
6018 :ONES (WHICH IS 400, 1000, 2000, 4000, 
6019 ; 10000 20000, 40000, 1900006) 
6020 :INTO RHOB TO FILL’ IT 
60e1 : THEN ON READING RHDB THE 
6022 j TOT AL BT 
6023 HWC SHOULD HAVE O 
6024 th CONTAINED WHAT IS 
6025 :GIVEN IN BAD RHW 
60e6 017624 Qss: 
e058 
60e9 33 peoussegecusuntepsomeseeemrrrcerie 2 te aan an. 
6030 :#TEST 17 SILO TEST 7 (FLOATING O IN LOWER BYTE) 
6032 ;* AFTER A RH CLEAR R 1S GI GIVEN (SET BIT #S IN RHCS2) 
6033 : RHCS2 IS CHECKE VE “IR™ (BIT #6) HIGH, 
6034 :# TOGETHER WITH GRIT NUMBER 
6035 : EIGHT WORDS OF FLOATING ZEROS 177776, 177775, 177773, 
6036 : 177767, 177757, 177737, 177677, 177577 
» 6037 ; IS WRITTEN IN NTO RHDB 
6038 i “OR” (BIT #7 IN RHCS2) IS WAITED FOR BY A TRAP 
6039 1% INSTRUCTION cA, D “WAT” 
6040 1% THEN RHCS2 IS CHECKED TO HAVE “IR™ LOW AND 
6041 ;% “OR HIGH TOGETHER WITH THE UNIT NUMBER 
6042 : THEN RHOB IS AND COMPARED TO HAVE THE 
6043 ; RIGHT VALUE AFTER EACH OF THE EIGH HT READS. 
ed i THEN RHCSe I CHECKED TO HAVE “IR’ 
5046 3% THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
6047 ;# CHECKED TO’HAVE THE APPROPIATE VALUE 
6048 Te Sout © tema manhattan catalina 
cose Ot sese ens 001000 $11 oye STACK, SP ;RESET STACK 
2 MOV ¢ K 
6051 017632 012737 O00017 ooY4ESse MOV #17, a8tSTNM :SAVE TEST NUMBER 
6053 017640 004737 oO40306 JSR PC, J#CLDISK ;GIVE RH INITIALIZE 
6054 !SETUP UNIT NUBER 
oper :CLEAR RHWC AND FUNCTION BITS IN RHCS1 
e088 
»CHECK THAT RHCS2 HAS IR 
6059 017644 012737 OO00100 001124 MOV #IR, SGDDAT ;GET GOOD = 100 
B00 017652 0$3737 005010 001124. BIS UNIT. $GDDAT ! INCLUDE UNIT NUMBER 
6062 017660 017737 164204 001126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
6063 017666 023737 OO01124 OO01l26 CMP $GDDAT.$BDDAT :COMPARE EXPECTED ? 





:DATA WITH DATA READ FROM 


B10 


CERHADO _ macy il 30: 1048) 2i-DEC-77 13:06 PAGE 119 pe 
CERHAD.P 11 21-DEC-77 12:48 v1? SILO TEST 7 (FLOATING O IN LOWER BYTE) cf46 0118 

= 

6005 ;RHCS2 

epee S1TETE OBtaBe BEfon £58 ee 

A Tbr 0 

E08 ;AFTER SETTING ToLR™ BIT aS 

6065 !IN RHCSe TO INIT THE RH 

607 ty gg VING DONE NOTHING 

6071 

607¢ i RHCSe SHOULD HAVE IR 

pos3 : TOGETHER WITH UNIT NUMBER 

607 :BUT CONTAINED WHAT IS 

6076 :GIVEN IN BAD riicee 

1 Td 017700 6S$: 

607 ;WRITE EIGHT WORDS INTO RHDB TO FILL _IT - nae ae 

6080 :DATA IS FLOATING ZEROS 177776, 177775, 177773, 3.7767, 177757, 177737. 

6081 °177677, 177577 

6082 017700 012701 177776 hov 0177726, Ri GETTING READY | to FLOAT ZEROS 

6083 017704 Ole70e oo0010 MOV Re :COUNTER -8 DAT WORDS 

6084 017710 010177 1641é&6 1$: MOV RG: ” SRHOB :WRITE INTO R 

608S 017714 O00261 SEC :SET CARRY 

6086 017716 00610: ROL R1 :GET ZERO ONE BIT LEFT 

6087 017720 005302 DEC R2 : COUNT 

6088 017722 001372 BNE 1$ : BRANCH IF 8, NOT DONE 

6089 -WAIT FOR OR BIT IN RHCS2 7REGISTER TO 

6090 017724 104411 WAT 3T O WAIT.T SUBROUTINE 

6031 617726 004070 Rese ‘AND WAIT FOR OR BIT IN 

609e 017730 ooo200 OR :RHCSe REGISTER 

6093 tIF E OCCURS HERE 

6094 :IT MEANS “OR” DID NOT 

6095 :SET FOR THE FULL CO 

6096 :DOWN OF THE WAIT.T SUBROUTINE 

6097 :THIS TIME IS APPROXIMA 

6098 ‘LARGER THAN SOO MILLISECONDS 

6099 

6100 

6101 CHECK THAT RHCSE HAS OR 

6192 017732 012737 oO00200 001124 hov 8OR, SGDDAT ;GET GOOD = 200 

6103 017740 053737 OOSO10 001124 BIS UNTt. $GDDAT : INCLUDE UNIT NUMBER 

6105S 617746 017737 164116 001126 MOV ARHCS2, SBODAT ;READ ge se FOR COMPARISON 

6106 017754 023737 O01124 O01126 CMP $GDDAT;$BDDAT COMPARE EXP 

6107 ATR w WITH DATA READ FROM 

6109 017762 001401 BEQ 67% :BRANCH IF GOOD 

6110 9317764 104023 ERROR 23 

E1ll ;AFTER SETTING “CLR” BIT #5 

tlie i IN RHCS2 TO wantt THE RH 

6113 HAVING WRITTEN A Patt ERN 

6114 OF FLOATING ZEROS - 177776, 177775, 

6115 3177773 177767 i7778?, 177737, 177677, 177877 

6116 INTO RHOB TO FILL IT 

b117 iRUCSe SHOULD HAVE OR 

6115 !TOGETHER WITH UNIT NUMBER 

6120 : BUT CONTAINED WHAT IS 


C10 


CERHADO MACYIi eet te 2 2i1-DEC-77 13: as Pe 120 


CERHAD.P 11 21-DEC-77 12:48 SILO TEST 7 (FLOATING 0 IN LOWER BYTE) 
6121 ;GIVEN IN BAD RHCS2 
Blee O177b6 67S: 
6123 
cies 
6126 O17766 012737 O00001 oD04664 MOV -FIRST WORD TO BE READ 
6127 » CHECK mat? chop mAs 177776 
pics 017774 012737 177776 001124 MOV #177776, SGDDAT GET GOOD = 0 
6130 O20002 017737 164074 001126 MOV @RHOB, SBDDAT ;READ RHDB FOR COMPARISON 
1 0015 623737 4 001126 CMP $GDDAT,$BDDAT ;COMPARE EXPECTED 
£132 ” oF peice ‘ere WITH DATA READ FROM 
61 
cise SEODEE 9B4d84 Bion 2° sag oat 
ci ee ETT ETL, 4 
137 Py 
1 : WRITING A PATTERN OF FLOATING 
£136 i OP Ros - 177776, 177775, 27773. 177767, 
6140 5172787 1777374, 177677, 1 155657 
4 : 
6142 THER ON RE ADING RHDB THE 
eta ‘eine’ D_HAVE | 177776 
6145 : RHE nou. HAVE 
6146 :GIVEN IN BAD RHODE 
6147 O2cde2 69S: 
e149 
6150 Oe0022 012737 OD0002 oco4EEY SECOND WORD TO BE READ 
6151 MOMECK rat? RHoB "4As 177575 
b1s¢ 020030 012737 177775 001124 hov #177775, scpoAT ;GET GOOD = O 
6154 020036 917737 164040 001126 MOV JRHDB , SBDDAT ;READ RHDB FOR COMPARISON 
6155 O200449 023737 001124 OOllze CMP $GDDAT,$BDDAT :COMPARE EXPECTED 
6156 :DATA WITH DATA READ FROM 
6157 :RHDB 
6158 oOe00S2 ooi401 BEQ 71% :BRANCH IF GOOD 
6159 920054 id4024 ERROR 24 
6160 ;AFTER SETTING “CLR” BIT 8S 
6161 3 IN RHCSe TO INIT THE R 
61be ID WRITING A PATTERN OF FLOATING 
6163 :2ER OS - 177776, 177775, 127773, 177767, 
6164 5127757 177737, 177677, 177577 
6165 : 0 RADE TO FILL 
6166 TEN O READING RHOB THE 
6167 CO EOND TIME 
6162 :RHDB SHOULD HAVE 177775 
6169 }BUT CONTAINED WHAT IS 
6170 :GIVEN IN BAD RHOB 
6171 Oe200S6 718: 
e155 
6174 O200S6 012737 o00003 oD4eE4 LONM THIRD WORD TO BE READ 
6175 an MCMECK THAY RHDB HAS 177573 
6176 O20064 912737 177773 001124 hov #177773,$GODAT ;GET GOOD = O 


D10 


CERHADO MACY11 3011046) 2i-DEC-77 13:06 PAGE lel 


CERHAD.P11 21-DEC-77 12:48 T17 SILO TEST 7 (FLOATING O IN LOWER BYTE) SES 0120 
b177 
Bi+§ o20072 017737 164004 001126 MOV JRHDB, SBDDAT ;READ RHDB FOR COMPARISON 
79 020100 023737 01124 OO01ie6 CMP $GCDAT.EBDDAT :COMPARE EXPECTED 
Piao : . ibe TA WITH DATA READ FROM 
6181 
bis SSciis o4des PEROR 2a ebttasasind nase 
1 
:AFTER SETTING “CLR” BIT aS 
bigs if n Ric nce 16 Pie Me A FLOATING 
6186 oe: 199 25,P°13 775. ade ae cea 
£18. ue 177737. 177677. 177577 
an 

HE ROLL AdS no 
6192 THIRD SHOULD HAVE 177773 
6193 !BUT CONTAINED WHAT IS 
6194 :GIVEN IN BAD RHDB 
6195S O2011e2 733: 
eigs 

é 
6198 O20112 012737 ocO0004 oD4664 -FOURTH WORD TO BE READ 
6199 MONECK that? RHOB MuAS 177767 
6200 020120 012727 177767 001124 hov 8177767, SGDDAT SET GOOD = 0 
6202 020126 017737 163750 001126 MOV DRHDB , SBDDAT READ RHDB FOR COMPARISON 
6203 G20134 023737 001124 O01126 CMP $GDDAt , $BDDAT : COMPARE EXPECTED 
6204 :OATA WITH DATA READ FROM 
6205 :RHDB 
6206 O20142 001401 BEQ 753 :BRANCH IF GOOD 
6207 Oeol44 104024 ERROR 24 
6208 ;AFTER SETTING *CLR” ert aS 
6209 IN RHCSe TO INIT THE R 
6210 :AND WRITING A PATTERN OF EEQATING 
6211 :ZEROS - 177776, 177775, 177773, 177767, 
belie a hacer 177737, 177677. 155655 
6213 NTO RHOB TO FILL IT 
6214 THEN ON READING RHDB THE 
6eis i FOURTH TIME 
6216 RHOB SHOULD HAVE 177767 
6217 BUT CONTAINED WHAT IS 
6218 :GIVEN IN BAD RHDB 
6219 O20i4e 7S$: 
e25i 
6222 O20146 012737 OD000S o04e64 MOV LONM -FIFTH WORD TO BE READ 
6222 ; CHECK raat? RHOB HAS 177757 
peed 020154 012737 177757 O01124 Mov #177757,$GDDAT ;GET GOOD = 0 
6226 O20lbe 017737 163714 001126 MOV SRHDB, SBDDAT ;READ RHDB FOR 7EQMPARISON 
6227 O20170 023737 001124 OOllee CMP $GDODAT, $BDDAT ; COMPARE EXPECT 
bee8 DAT DATA A WITH DATA™ READ FROM 
6230 020176 001401 773 RANCH IF GOOD 
623i Oe0e60 104024 BE BOR 24 :8 
622 ;AFTER SETTING “CLR” BIT #5 


CERHADO MACY11 30: 1046) 
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Oe0e02 


Oed0e0e 
020210 
020216 
Oe02e4 


020232 
020234 


020236 


020236 
020244 
OedeSe 
020260 


Oe0eb6 
02e0e70 


—_ 
os 
‘ 


012737 
012737 
017737 
023737 


001401 
i040e4 


612737 
012737 


12: 


ococoe 
177737 


163660 
001124 


000007 
177677 


163624 
901124 


2i-DEC-77 
48 


004664 
00iie4 


OC1ie6 
001126 


OO46E4 
001124 


001126 
001126 


77$: 


798: 


13: 7, ye l2e 


E10 


SILO TEST 7 (FLOATING O 


MOV 
CHECK hat: RHO "YAS 177537 


hov 


MOV 
CMP 


BEQ 
ERROR 


tov 


MOV 
CMP 


BEQ 
ERROR 


#177737, $GDDAT 
ORHDB, SBDOAT 
$GDDAtT, $BDDAT 


79% 
e4 


#7, SILONM 


MOHECK THAT RHDB HAS 177 


#177677, SGDDAT 
JRHDB , S8DDAT 
$GDDAtT, $BDDAT 


81$ 
24 


IN LOWER BYTE) 

;IN att 3 te TO ANI THE RH 

:AND WRI is A PATTERN OF Eh O81 ING 
:ZEROS - 177776, 177775, 177773, 177767. 
3177757 177737 177677. 177577 

; INTO R TO F 

: THEN ON READING RHOB THE 

;RHDB SHOULD gee a tee 


;BUT CONTAINED 
:GIVEN IN BAD RHODE 


SIXTH WORD TO BE READ 
;GET GOOD = 0 
;READ RHDB cor COMPARISON 
; COMPARE EXP 
foe ahh WITH DATA READ FROM 
;BRANCH IF GOOD 
; AFTER SETTING “CLR” BIT #5 
CcSe T_THE RH 
; ERN OF FLOATING 
;ZEROS - 177776, 177775, eae b 177767, 
fg raha 479796 Tad, hk 177577 
Pe ON _— RHOB THE 
;RHOB SHOULD HAVE ih ll 


:BUT CONTAINED WHAT 
:GIVEN IN BAD RHDB 


gS5VENTH WORD TO BE READ 
;GET GOOD = 0 


;READ RHDB FOR COMPARISON 
; COMPARE EXPECTED 

DAT A WITH DATA READ FROM 
: BRANCH IF GOOD 


+ 4a SETTING s¥" BIT #S 
IN THE RH 
;ZEROS_- 177776, 177775, 177773, 177767, 


; IN OF 
: THEN ” READING. RHDB THE 
:SEVENTH TIME 

;RHOB SHOULD HAVE 177677 





CERHADO MACYi1 30: i046. 
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6309 


WWWWWWWW WoIlUGa) 
TUPUTU &s eo 
NVM-OWONTW CW. OwWD 


323 


OOK MK MOM TON OOOCo 


Oe20e7e 


Gede7e 
020300 
020306 
0e0314 


020322 
02e03e4 


Se0326 


020326 
020334 


Oe034e 
020350 


020356 
020360 


0ie737 
012737 
017737 
023737 


001401 
104024 


Oie73 


2i-DEC-77 
i2:48 


000010 
177877 


163570 
001124 


000100 
oosci0 


163522 
001124 


004200 


O04664 
001124 


001126 
O01ieb 


001124 


i3: ve Ft 


81$: 


838: 


ess: 


F10 .- 


SILO TEST 7 (FLOATING O IN LOWER BYTE) 


;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


PAGE 123 


MOV #8. ,STLONM jE IGHTH WORD TO BE READ 


CHECK THAT'RHDB HAS 177677 
hov 8177S77,$GDDAT ;GET GOOD = 0 
MOV JRHOB, SBODAT ;READ RHOB FOR COMPARISON 
CMP $GODAt , $BDDAT OMPARE EXP 
: DATE WITH DATA READ FROM 
BEO 83% :BRANCH IF GOOD 


ERROR e4 
;AFTER SETTING 7F tN BIT «5 
:IN RHCSe TO py a HE RH 
: AND WRITING A PATTERN OF FLOATING 
;ZEROS - 177776, 177775, {eae 177767, 
1777 3¢ 177677, 1775877 


@ To FtuL I 
THEN ON READING RHOE THE 
iEIGHTH TIME a 
;RHDB SHOULD HAVE 177577 
BUT CONTAINED WHAT 15 
;GIVEN IN BAD RHDB 


CHECK THAT RHCS2 HAS IR 


ov #IR,SGODAT ;GET GOOD = 100 
BIS UNIT. $GDDAT : INCLUDE UNIT NUMBER 
MOV @JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP $GDDAT;$BDDAT :COMPARE EXPEC 

spare WiTk DATA READ FROM 
BEQ ess !BRANCH IF GOOD 
ERROR 25 


;AFTER SETTING ot BIT aS 
;IN_RHCSe TO ye HE RH 

;AND WRITING A PATTERN OF Coat it 
;ZEROS - 177776, 177775, 17 Lae 177767, 
itor ese oe 177677, 177977 


I 

; THEN ON READING RHOB THE 
;TOTAL 8 TIMES 

: RHCS2 SHOULD HAVE IR 


=10 
i TOGETHER WITH eee NUMBER 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RucSe 


;CHECK THAT RHCS1 HAS OVAIRDY 
Mov sDVA!RDY,SGDORT ;GET GOOD = 4200 


G10 


CERHADO Wacvaa 30: 1046, 2i-DEC-77 13:06 PAGE 124 A ee 
CERHAD.P11 21-DEC-77 12:48 T17 SILO TEST 7 (FLOATING O IN LOWER BYTE) SEG 0123 
6345S O20370 O17737 163464 001126 MOV SDRHCS1,$B00AT  ;READ RHCS1 FOR COMPARISON 
? 737 1124 OOlie CMP $GDDAT, $BODAT i COMPARE EXPECTED 

eae cncetth Sereda eh: ° :DAL Q WITH DATA READ FROM 
£348 
fie GENE? Ra Flice i" pagers 

~) 0 ce 
6351 anten SETTING “CLR” BIT aS 
635e : IN RHCSe TO INIT THE RH 
6353 !AND WRITING A PATTERN OF FLOATING aad 
£354 ZEROS - 177776, faege F 177773, 177767, 
6355 177757, 177737, 177677, 177577 
6356 :INTO RHOB TO FILL IT 
6357 : THEN ON rene iNe RHOB ne 
6358 TOTAL 8 oe 
6353 ;RHCSI HOULD SHAVE DVAIRDY 
6360 4200 
6361 ‘BUT CONTAINED WHAT Is 
6362 :GIVEN IN BAD RHCS1 
6263 20410 873: 
6364 BSHECK THAT RHCS3 HAS O 
£365 020410 012737 oo9000 001124 #0, $GDDAT ;GET GOOD = O 
6367 O20416 917737 163510 o01126 MOV RHCS3,$BDDAT ;REA RHCS3 FOR COMPARISON 
6368 920424 623737 001124 9561126 CMP GDDAT’ $BDDAT +O ERPARE 
6369 Dara Oi Th OaTAY READ FROM 

$ 

637i O20432 001401 BEG Sag :BRANCH IF GOOD 
637e Oe0434 104027 ERROR e7 
6373 ;AFTER SETTING sCLR™ BIT ae 
6374 :IN RHCSe TO INIT THE R 
637 :AND WRITING A PATTERN OF FLOATING 
6376 :ZEROS - 177776, 177775, 177773, 177767, 
6377 177757, 177737, 177677, 177577 
6378 ; INTO R TO FILL IT 
6373 i THEN N ON i RHDB THE 
6380 ;TOTAL 8 TIMES 
6381 :RHCS3 SHOULD HAVE O 
6382 :BUT CONTAINED WHAT IS 
6383 :GIVEN IN BAD RHCS3 
6384 oO20436 893: 
6385 CHECK THAT RHBA HAS 0 
6386 020436 612737 ocO0000 4101124 Mov #0, $GDDYT ;GET GOOD = 0 
6388 O20444 017737 i63414 001126 MOV JRHBA , SBDDAT ;READ RHBA FOR COMPARISON 
6389 O204S2 023737 091124 Of1126 CMP $GDDAt, SBDDAT ; COMPARE EXPECTED 
pa 3DA au WITH DATA READ FROM 
6392 O20460 001401 BEQ 915 ‘BRANCH IF GOOD 
6393 Oe0462 104030 ERROR 30 
6°94 ;AFTER SETTING soLR” BIT aS 
6.35 :IN RHCS2 TO INIT THE R 
6296 AND WRITING A PATTERN OF FLOATING 
6397 ZEROS - 177776, 177775, 177773, 177767. 
6396 it 7757, i 7737 177677, 13557 
6395 : INTO RHDB TO F 


L 
64OC : THEN ON READING RHOB THE 


CERHADO ae eit 1046) 


CERHAD.Fil 


B44 
40S 20464 
6407 O20464 


wie 888808 


64i3 O2O0S06 
64i4 020510 


6426 O20Sie 
64e8 Oe0Sle 
6430 O20S20 
6431 Oe0Seb 


6434 d20534 
6435 20536 


6447 O20540 


-DEC-"" 12:48 


012737 Goocco 


Bb573> aBriz4 8 


012737 oo0000 


017737 163336 
023737 001124 


me ree 


2i-DEC-77 


S18: 
o0i1e4 


091126 
i126 


938: 
001124 


001126 
001126 


9S$: 


H10 


SILO TEST 7 ‘FLOATING O IN LOWER BYTE) 


; TOTAL 8 TIMES 

:RHBA SHOULD HAVE 0 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 


3 CHECK. THAT RHGAE HAS 0 


i3: .; _—— i2s 


MOV #0, SGDDAT :GET GOOD = 0 
MOV JRHBAE,$BODAT  ;READ RHBAE FOR COMPARISON 
CMP SGDDAT;$BD0AT  ; COMPARE EXPECTED 
;DATA WITH DATA READ FROM 
33¢ BRANCH IF GOOD 


BEG 
ERROR 31 
44 SETTING “CLR” a 3 aS 
:IN RHCSe TO ig THE R 
3 AND WRITING A PATTERN OF FLOATING 
; ZEROS - 177776, 177775, 177773, 177767, 
Yeeare 177737, 177677, 177577 


tty 6 On RenBrne fobs THE 


EMER SHOULD. AVE 0 
ONTAINED MONAT Is 
:GIVEN IN BAD RHBAE 


;CHECK THAT RHWC_HAS O 


Mov #0, SGODAT ;GET GOOD = 0 

we BERG SEORST, Seno re, pon curmonssn 
BR iy ATTA DATAS READ FROM 

BEQ 393 ;BRANCH IF GOOD 

ERROR 32 


AFTER SETTING “CLR” BIT #5 
RHCSe TO Intt THE RH 

* AND WRITING A PATTERN OF FLOATING 

: ZEROS = I7777e, A¢¢ete, kerera, bree 

177757 172737 177677, 177577 

: INTO On Bens LL IT 

; THEN ON EADING RHOB THE 

TOTAL 8 TIMES 

: RHI C SHOULD HAVE O 

:BUT CONTAINED WHAT Is 

:GIVEN IN BAD RHW 


hab hb lala ahahad-1-tah tah -t-5-+ bal teed bad -6-4-$-beh tah -5-4-4-+ arta 5-5 tp -f lalallala 


‘$TEST 


hd 
;* 
+ 
+ 


20 SILO TEST & (FLOATING ZEROS IN UPPER BYTE) 


AFTER @ RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
RHCSe IS CHECKED TO ae “IR” (BIT #6) HIGH, 
TOGETHER WITH UNIT NUMBER 

EIGHT WORDS, A PATTERN OF FLOATING ZEROS IN UPPER SYTE 


I10 


RHADO MACY11 30.104 b 21-DEC-77 13:06 PAGE 126 
KERHABCPTi 2isbec-s> 13:48 T20 SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 
64S7 :* 177377, 177677, 175777, 173777, 167777, 157777, 137777, 77777 
6458 :* S WRITTEN INTO RHD 
6453 :* “OR” (BIT #7 IN RHCSe) IS WAITED FOR BY A TRAP 
6460 4 INSTRUCTION CALLED “WAT” ss 
6461 :# THEN RHCSe IS CHECKED TO HAVE “IR” LOW AND 
6462 :# "OR" HIGH TOGETHER WITH THE UNIT NUMBER 
5463 :* THEN RHOB IS READ AND COMPARED TO HAVE THE 
6464 :# RIGHT VALUE AFTER EACH OF THE EIGHT READS. 
64ES :* THEN N RHCSe IS CHECKED TO HAVE “IR’ 
BY46E :# AND UNIT NUMBER 
6467 # THEN Rest RHCS3, RHBA, RHBAE, RHWC ARE 
6468 3 CHECKED TO'HAVE THE APPROPIATE VALUE 
iol ohe] = SHSEEESSSEKSKEKSESARESAASASKSSSSRHKRAABRLHEAESAAEKSSSSFLHS SHE SAAS S 
6470 O20540 900004 +ét20: SCOPE 
6471 Oe0S4e Oi2e706 901000 MOV wSTACK, SP ;RESET STACK 
bi7e 020546 Oie737 O00020 oco4Ese MOV #20, aetSTNM :SAVE TEST NUMBER 
6474 O20554 004737 9040306 ISR PC, J8CLDISK ;GIVE RH INITIALIZE 
6475 :SETUP UNIT NUBER 
e47e ;CLEAR RHWC AND FUNCTION BITS IN RHCS1 
(a 
6478 ; 
6475 > CHECK THAT RHCS2 | HAS IR 
6480 O20560 012737 000100 001124 MOV S$GODAT ;GET GOOD = 100 
e481 020566 0537327 OOS0i0 O011e4 BIS ont: $GDDAT : INCLUDE UNIT NUMBER 
6483 020574 017737 163270 061126 MOV DRHCS2,$BDDAT ;READ RHCS2 FOR COMPARISON 
6484 Oe060e 023737 OOll2e4 Onlies CMP $GDDAT: SBDDAT ; COMPARE EXPECT 
Bugs ; DAT ara. WITH DATA READ FROM 
6487 020610 69140! BEQ 65S : BRANCH IF GOOD 
6488 Oedbl2e 104006 ERROR 6 
6489 ;AFTER SETTING “CLR” BIT &° 
6490 IN RHCSe TO INIT THE RH 
649i !QND HAVING DONE NOTHING 
6432 PEL SE 
aed ;RHCS2 SHOULD HAVE IR 
6495 +3 OGETHER WITH UNIT NUMBER 
649E BUT CONTAINED W Is 
S4S7 :GIVEN IN BAD Riicee 
b498 D20614 65S: 
6500 ; WRITE EIGHT WORDS INTO RHDB TO FILL IT 
6501 A PATTERN OF FLOATING ZEROS IN UPPER BYTE 
6$0e ‘Dara IS - 177377, 176777, 175777, 173777, 167777, 
6503 :157777, 137777, ?77 7358 
peO4 020614 012701 177377 hoy #177377.R1 GETTING READY TO FLOAT ZEROS 
6506 020620 012702 oocc10 MOV #8. .R2 ;COUNTER -8 DATA WORDS 
2507 pedees 010177 163252 18: mov R1, JRHDB fy we INTO R HOB 
6503 Oe0632 06101 ROL R1 GET Zeno. ONE BIT LEFT 
6510 020634 005302 DEC Re 3COU TO 
6511 020636 00137¢ BNE 1$ ‘BRAN CH IF 8 NOT DONE 
6Sile ;WAIT FOR OR BIT IN RHCS2 REGISTER TO SET 


J10 


RH MACYi1 30(1046) 2i-DEC-77 13:06 PAGE 127 ea 
cER HAD OPTI 21-DEC- 48. 12:48 720 SILO TEST S (FLOATING ZEROS IN UPPER BYTE) SEG 0126 
20640 104411 WaT ;TRAP TO WAIT. T SUBROUTINE 
Bis fee Bore = meek 
“ OR ; 
Pete :IF ERROR OCCURS HERE 
6517 :IT MEANS “OR” DID NOT 
6518 ;SET FOR THE FUL 
6519 :DOWN OF THE WAIT COUNBROUTINE 
6520 : THIS TIME IS APPROXIMATELY 
6521 !LARGER THAN SOO MILLISECONDS 
&5ee 
6523 
6524 -CHECK THAT RHCS2 HAS OR 
6SeS O2064%6 212737 o00200 001124 MOV #OR, SGDDAT ;GET GOOD = 200 
b526 029654 055737 OOSO1IO0 O01ie4 BIS UNIT. $GDDAT : INCLUDE UNIT NUMBER 
6528 O20662 017737 163202 051126 MOV ORHCS2,$BD0AT  ;READ RHCS2 FOR COMPARISC.: 
65239 020670 923737 O0112e4 JO1le6 CMP $GODAT; $BDDAT ; COMPARE EXPECTED 
6530 ;DAT A WITH DATA READ FROM 
6521 :RHCS2 
6532 O20676 CO1401 BEO 67% :BRANCH IF GOOD 
6533 020700 104023 ERROR 23 
6534 ;AFTER SETTING “CLR” BIT #5 
6535 IN RHCSe TO INtT THE RH 
6536 t!AND HAVING WRITTEN st 
6537 :PATTERN OF FLOATING * EROS IN UPPER BYTE 
6538 !177377, 176777, 175777, 173777 
65393 167777, 157777, 137777, 77777 
6540 s ANTO RHDB TO FILL IT 
6541 RHCS2 SHOULD HAVE OR 
6542 =200 
6543 TOGETHER WITH UNIT NUMBER 
6544 :BUT CONTAINED W IS 
654s ‘GIVEN IN BAD rices 
6546 020702 67$: 
6547 
6548 
6549 
6550 O20702 O12737 O00001 oD4e64 MOV -FIRST WORD TO BE READ 
6551 ; CHECK hat? Rigo. HAS 177377 
b55¢ 020710 012737 177377 OO1124 MOV #177377,$GDDAT ;GET GOOD = 0 
6554 020716 017737 163160 001126 MOV JRHDB, SBDDAT ;READ RHDB FOR. COMPARISON 
6555 020724 023737 001124 OOllee CMP $GDDAT,SBDDAT :COMPARE EXPECT 
B556 DA re WITH DATA READ FROM 
6558 020722 001401 BEQ 693 :BRANCH IF GOOD 
6559 920734 104024 ERROR 24 
6560 AFTER SETTING "CLR" BIT #5 
6561 IN RHCS2 TO INIT THE RH 
6562 ;ANO WRITING A PATTERN OF FLOATING 
6563 :ZEROS IN UPPER BYTE 
6564 :177377, 176777, 175777, 173777 
6565 3167772, 1S7777, 137777, 77777 
ESE :INTO RA O FILL IT 
£567 : THEN on READING RHDB THE 
sceE :FIRST TIME 





CERHADC MACY11 30: 1046) 
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020736 


020736 
020744 
020752 
020760 


020766 
020770 


020772 


020772 
021000 
021006 
021014 


02102ee 
021024 


012737 
012737 
017737 
023737 


001401 
104034 


012737 
012737 
017737 
023737 


001401 
104Ce4 


2i-DEC-77 
12:48 


ooo0de 
176777 


163124 
001124 


000603 
178777 


163070 
001124 


004664 
001124 


001126 
001126 


OO4664 
001124 


001126 
001126 


69$: 


7138: 


733: 


K10 


SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 


;RHDB SHOULD HAVE 177377 
:BUT CONTAINED WHAT IS 
; GIVEN IN BAD RHOG 


13: 06 PAGE 128 
Ted 


MOV LONM -SECOND WORD TO BE READ 
CHECK mat? Bet HAS 176777 


hov #176777,$GDOAT ;GET GOOD = O 
MOV QRHDB , SBDDAT ;READ RHOB FOR COMPARISON 
CMP S$GDDAT,$BCDAT ;COMPARE EXPECT 
:DATA WITH DATA READ FROM 
: RHDB 
71% :BRANCH IF GOOD 


BEQ 

ERROR 34 
;AFTER SETTING “ # BIT #S 
:IN RHCS2 TO INIT THE RH 
:AND WRITING A PATTERN OF FLOATING 


PER BYTE 
1177377, 176777, 175777, 173777 
HINTO’R aS77e as he 77777 


0 TO FILL IT 
THEN ON we RHDB THE 
;SECOND TIME 
;RHOB SHOULD HAVE 479277 


:BUT CONTAINED WHAT IS 
;GIVEN IN BAD RYDE 


MOV LONM THIRO WORD TO BE READ 
CHECK That. REDE HAS 175577 


hov #175777, SGDDAT GET GOOD = 0 
MOV JRHDB , SBDDAT ;READ RHDB FOR COMPARISON 
CMP $GDDAt, SBDDAT ; COMPARE EXP 
ATR are WITH DATA READ FROM 
73% :BRANCH IF GOOD 


BEG 
ERROR 24 
sr TER es 32 ING oF tn of 8S 


; ER BYT 
3177377, 176777, 175777, 17377 
3167777, 157777 parsers 27777 


; FLL IT 
; THEN ON REAOING RHDB THE 
Pig! fa 
RHDB SHOULD HAVE 175777 
: BUT CONTAINED WHAT IS 
: GIVEN IN BAD RHDB 


CERHADO MACYi1 30/1046) 
CERHAD.P11i 


021026 
021034 
021042 
021050 


021056 
021060 


02i06e 


021062 
021070 


021076 
021104 


021116 


021116 
021124 


021132 
021:40 


21-DEC-77 


012737 
012737 
017737 
023737 


001401 
1040e4 


012737 
012737 
017737 
023737 


00140i 
104024 


012737 
012737 


017737 
023737 


L10 


21-DEC-77 13:06 PAGE 129 p 
12:48 T20 SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE? SEG 0128 
000004 004664 #4, SIL “FOURTH WORD TO BE READ 

MONECK THAT ROB "WAS 1 17377 
173777 001124 MOV #173777, S$GDDAT GET GOOD = 0 
163034 001126 MOV JRHDB, SBDDAT ;READ RHDB FOR. COMPARISON 
001124 O01126 CMP S$GDDAT,SBDDAT :COMPARE EXPECTED 
; ara W WITH DATA READ FROM 
BEG 75% :BRANCH IF GOOD 
eae sQFT R SETTIN LR BIT 8S 
Aces to INIT TH 
AND WR TING. g FATT CRN OF FLOATING 
7559521" at 
177377, eo 5 at 777. 173777, 
5167772) 157777, 137777 2277 
0 RADE 10 FILL I 
NEN ON EADING bude ne 
2b. H TIME 
:RHDB SHOULD HAVE 173777 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDG 
753: 
ooo00S 004664 MOV LONM FIFTH WORD TO BE READ 
CHECK That ROB HAS 167577 
167777 001124 hov #167777,$GDDAT ;GET GOOD = O 
163000 001126 MOV JRHDB, SBDDAT ;READ RHDB FOR. COMPARISON 
001124 O01126 CMP $GDDAt , $BDDAT : COMPARE EXPECT ED 
DATE T TA READ FROM 
BEQ 77% :BRANCH IF GOOD 
wien SQFT R SETTING “CLR” BIT #5 
N RHCES TO nit THE RH 
AND WR TING A PATTERN OF FLOATING 
ZEROS IN UPPER BYTE 
$127 27 176777, 175777, 173777, 
67777 Hob@s5 Ft 192777, 27777 
it NEN z READING RHDB THE 
:FIFTH rare 
:RHDB SHOULD HAVE 167777 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 
7738: 
000006 o004664 -SIXTH WORD TO BE READ 
MCMECK raat: RHO HAS 157777 
157777 001124 MOV #157777,$GDDAT ;GET GOOD = 0 
162744 001126 MOV JRHDB , SBDDAT ;READ RHDB FOR COMPARISON 
001124 O01126 CMP $GDDAT,$BDDAT ;:COMPARE EXPECTED 


CERHADO MACY11 30/1046) 
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Pll 


021146 
021150 


021152 


021152 
021160 
02i166 
021174 


021202 
021204 


2i-DEC-77 
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001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


000007 
137777 


162710 
001124 


000010 
077777 


162654 
001124 


OO4664 
001124 


001126 
001126 


OO4664 
001124 


001126 
001126 


Ted 


81S: 


13:06 PAGE 130 
SILO TEST 8 


MOV LONM 
» CHECK that? ety HAS 137777 


MOV 


#8. ,SILONM 
MCMECK THAT RHOB HAS 77777 


MoV 


MOV 
CMP 


BEQ 
ERROR 


M10 


#137777, SGDDAT 
JRHDB, SBDDAT 
$GDDAT, SBDDAT 


81S 
24 


#77777, SGDDAT 
QRHOB , SBDDAT 
$GDDAT , SBDDAT 


83 
24 


(FLOATING ZEROS IN UPPER BYTE) 


:PaTa WITH DATA READ FROM 
:BRANCH IF GOOD 


;AFTER SETTING +e tH BIT aS 

;IN_RHCS2 TO INIT THE RH 

;AND WR Je A ¢ | we OF FLOATING 
N UPPER BYT 


:177377, 176777, 175777, 173777, 
3167772 57777 137277, 27777 
NTO TO FILL IT 


LL 
Pe on READING RHOB THE 
;RHDB SHOULD HAVE peeere 
; BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHOB 


;SEVENTH WORD TO BE READ 
GET GOOD = 0 
;READ RHDB FOR COMPARISON 
; COMPARE EXPECTED 
{ols WITH DATA READ FROM 
:BRANCH IF GOOD 
Hin Re 6119 Ma BIT #5 
we TO Sf HE RH 
3A ITING A PATTERN OF FLOATING 
ZEROS IN yee R BYTE 
3177377, 176777, 175777, 173777, 
137777, 777 


: 167777 

:INTO RADB FILL 

: THEN ON READING RHOB THE 
; SEVENTH TI 


3 ME 
;RHOB SHOULD ye F a 
; BUT CONTAINED W Is 
:GIVEN IN BAD RHDE 


;EIGHTH WORD TO BE READ 
;GET GOOD = 0 
;READ RHDB on COMPARISON 


;COMPARE EXP 
;DATA WITH DATA READ FROM 


; RHDB 
:BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #5 
;IN RHCS2 TO INIT THE RH 


CERHADO ype 30‘ 1046) 
CERHAD. © 2i 


Oe@le42 


Oeleve 
021eS0 


021256 
0eleb4 


Oele7e 
021274 


021276 
021276 
021304 
021312 


021320 
021322 


-DEC-77 


012737 
083737 


017737 
023737 


001401 
104025 


012737 
017737 
023737 


001401 
104026 


} 
, 


2i-DEC-77 13:06 _ PAGE 
12:48 T20 


000100 O 
oosoid Oo 
0 
0 


162606 
001124 


oo4e00 001124 


16e5S0 001.126 
O011e4% OO0iieb 


83$: 


sss: 


N10 
131 


SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 
; AND WAT TING A_ PATTERN OF FLOATING 
BYTE 


UPPE 
1177377, “176777, 153555" 173777, 
5182777, pee ett 137777, 77777 


; INTO id 
; THEN - READING RHOB THE 
; EIGHTH TIME 

RHOB SHOULD HAVE 77777 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


;CHECK THAT RHCS2 HAS IR 


MOV #IR, $GDDAT ;GET GOOD = 100 
BIS UNIT. $GDDAT ! INCLUDE UNIT NUMBER 
MOV ORHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP S$GDDAT’$BDDAT ;COMPARE EXPECTED 
re ee DATA READ FROM 
85s :BRANCH IF GOOD 


BEQ 

ERROR ef 
;AFTER SETTING “a * BIT #S 
:IN RHCSe TO AND THE RH 
;AND WRITING orate OF FLOATING 


; PE 
3177377, 176777, 153555" 173777, 
; ee a os h 77777 


FILL IT 
i THEN ON READING RHDG THE 
:TOTAL 8 TIMES 
iRise SHOULD HAVE IR 


=1 
TOGETHER WITH pat NUMBER 
sro CONTAINED Wi Is 
;GIVEN IN BAD RHC nce 


CHECK THAT RHCS1 HAS DVA!IRDY 


hov #DVAIRDY,SGDDAT ;GET GOOD = 4200 
MOV JRHCS1,$BDDAT  ;READ RHCS1 pb OR COMPARISON 
CMP $GDDAT’S$BDDAT ;COMPARE EXP 
spare WiTR DATA READ FROM 
87% :BRANCH IF GOOD 


BEQ 

ERROR 26 
;AFTER SETTING sf oH BIT #5 
;IN were TO INIT THE RH 
;AND WRITING a PATTERN OF FLOATING 


3177377, 176777, 175777, 173777, 
; bro Ete 137777, 77777 


; OF 
STHEN ON READING RHO THE 
: TOTAL 8 TIMES 


SEG 0130 





be Te 3011046) 2i-DEC-77 13:06 PAGE i3e 
CERHAD . F 21-DEC-"? 12:48 Ted SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 


det SHOULD HAVE DVA!RDY 


‘But CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


021324 
;CHECK THAT RHCS3 HAS 0 
G2i3e4 012737 ooo00d 001124 MOV #0, $GDDAT ;GET GOOD = 0 


021332 017737 162574 001126 MOV @RHCS3, SBODAT ;READ page aie COMPARISON 
Oei3s40 023737 O011e4 OO1ie6b CMP SGDDAT , SBODAT ; COMPARE EXP 
;DATA WITH DATA READ FROM 


S3 
021346 BEQ 89s : BRANCH IF GOOD 


021350 ‘ ERROR 27 
;AFTER SETTING woLR” BIT #5 
3 IN RHCSe TO INIT THE RH 
ITING A PATTERN OF FLOATING 
: ZEROS IN UPPER BYT 
1177377, 176777, BY78777, 173777, 
157777, i 137 077, 27777 


TO F I 
Ms ON READING. RHOB THE 
pe TAL 8 T 
;RHCS3 SHOULD HAVE O 
: BUT CONTAINED WHAT IS 
: GIVEN IN BAD RHCS3 


02i3Se 
;CHECK THAT RHBA_HAS 0 
021352 012737 oOOo0000 001124 Mov 80, SGDDAT ;GET GOOD = 0 


021360 017737 162500 001126 MOV @RHBA , SBODAT ;READ RHBA FOR COMPARISON 
021366 023737 001124 001126 CMP $GDDAt , SBDDAT ; COMPARE EXPECTED 
:;DATA WITH DATA READ FROM 


021374 oO0i401 BEG 23s : BRANCH IF GOOD 


0e1376 104030 ERROR 
On Br SETTING “CLR” BIT #5 
N RHCSe TC INIT THE RH 
WRITING A gl OF FLOATING 


, 138777, 173777, 
167777) 157777 137777, 27777 
‘INTO RHDB TO FILL IT 
i N ON READING RHOB THE 
AL 8 TIMES 
A SHOULD HAVE 0 
CONTAINED WHAT IS 


TO 
HB 
UT 

IVEN IN BAD RHBA 


021400 : 
*CHECK THAT RHBAE HAS O 
021400 012737 o00000 001124 Mov #0, SGDDAT ;GET GOOD = O 


021406 017737 i62516 001126 MOV @JRHBAE , SBODAT READ RHBAE be COMPARISON 
021414 023737 001124 GOlicb CMP $GDDAT, SBDDAT ! COMPARE EXPECT 
;DATA W WITH DATA READ FROM 
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021426 
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021434 
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0214S0 
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12:48 


000006 O011e4 


lbe42e 001126 
00i1e4% OOliet 


Teo STILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 
BEG 3933 ;BRANCH IF GOOD 
ata, = +e R” B u Ss 
LR” 8 
BSP nef Bhr fs 
ATTERN OF FLOATING 
AND 0 


37) erP7, 
:177377, 176777, 178777, 173777, 
:167772) 1577724 137777, 77777 


NTO FILL IT 
av ON i RHOB THE 
AL 8 TIME 
RE ate LO HAVE O 
it CONTAINED WHAT IS 
938 :GIVEN IN BAD RHBAE 


»CHECK THAT RHWC HAS O 
MOV #0, SGDDAT ;GET GOOD = 0 


MOV DRHWC , SBDOAT ;READ RHWC FOR COMPARISON 
CMP SGDDAT,SBDDAT ;:COMPARE EXPECT 
:DATA WITH DATA READ FROM 


HC 
BEQ 9s$ : BRANCH IF GOOD 
ERR 3e 


ROR 
;AFTER SETTING s¥" ty BIT #5 


; IN RHCSe_TO adit E RH 
; AND WR Spe a OF FLOATING 


; DB TO 
ba, ON READING. RHDB THE 
:T0 OTAL rates 

;RHWC SHOULD HAVE O 

;BUT CONTAINED WHAT IS 
oss ;GIVEN IN BAD RHWC 


[sappegpevpennneneysencscsseceusesserrstS ia. i 
T 21 RHCS1 - MCPE BIT #13 (PARITY LINE = O) 


AN _RH CLEAR (SET BIT #S_ IN RHCS2) IS GIVEN TO 
CLEAR ALL DEVICE REGISTERS 
Maa RHERI] (ERROR REGISTER 1) IS CHECKED TO HAVE 


SET “pat (BIT #4 IN RHCS2) TO INVERT PARITY CHECKING 
READ ANY DEVICE REGISTER - HER 
READ AND CHECK K JRHCSI TO CONTAIN ec (BIT #15) 

AND MCPE (BIT 

WRITE “1 INTO “tee (BIT #14 IN RHCS1) 

READ RHCS1 SC, MCPE 
GI H CLEAR cote, BIT #5 IN RHCS2) 


CHECK RHCS2 TO HAVE ONLY IR AND UNIT NUMBER 
CHECK RHCS3, RHBA, RHBAE, RHWC TO HAVE APPROPIATE 


OK OR oe awe 


D1l 
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CERHAD.P11 21-DEC-77 12:48 T2l RHCS1 - MCPE BIT #13 (PARITY? LINE = 0) 
VALUES. 
baRP jirsteeeentnatinnsoererenssessnereussoosessnssssnsososssseresesee 
6907 021454 900004 T21: SCOPE 
4 MOV aSTACK,SP ;RESET_STACK 
£308 Bsigz8 8is-9$ 88489? oouese Moy SS 'Setetnm «© SAVE TEST NUMBER 
6911 021476 004737 040306 JSR PC, w#CLDISK ;GIVE_RH INITIALIZE 
b3l¢ ; SETUP UN UB - 
639i :CLEAR RHWC AND FUNCTION BITS IN FHCS1 
6914 on 
Pate CHECK o¥ htt R1 HAS O 
6312 021474 012737 o00000 001124 MOV epbat ;GET GOOD = 0 
p20 SS1StG G2573> S8TTES BB1LEE OY BRSEH-SBDOGT au, moeny con goreensson 
e381 Ay eo ; Seoeeat BATA READ FROM 
6923 O21516 9301401 BEG 65% :BRANCH IF GOOD 
6924 O2iS20 104033 ERROR 33 
6325 ; AFTER SETTING -o. BIT w#1S 
6926 : IN ahs INIT THE RH 
6927 :AND_ HAVING pone NOTHING ELSE 
6928 :RHER1 SHOULD HAVE O 
ESES : BUT CONTAINED MUMAT Is 
6930 GIVEN IN BAD RHERI 
6331 O2iS2e 6S$: 
6933 :TO INVERT THE PARITY CHECKING ON THE CONTROL BUS 
6934 - :“PAT” BIT #4 IN RHCSe IS 
e328 O21522 oOS2777 ocOod20 162340 1s #PAT, IRHCS2 ;SET PAT = 20 IN RHCS2 
6937 
6938 -CHECK THAT RHERI1 HAS O 
6333 021530 012737 oo00ce 001124 MOV #0, SGDDAT ;GET GOOD = 
6941 021536 017737 162332 001126 MOV JRHER1,SBOCAT  ;READ RHERI efor COMPARISON 
6942 021544 623737 OOlie4 OOlic6 CMP $GDDAT;S$BDDAT COMPARE EXP 
eats spare MTs Data READ FROM 
694S O2isS2 oO01401 BEG 67% :BRANCH IF GOOD 
6946 O21554 104034 ERROR 34 
6347 ;AFTER CLEARING THE RH AND 
6948 ;DEVICE BY AN RH CLEAR 
ets sAND READING RHERI WITH 
6950 WRONG PARITY CHECKING 
6951 ; RHER1 SHOULD HA 
cas iEiveNIn eno meen] "S 
6330 O2isse 673 
69S6 sHAVING READ RHER1 WITH WRONG PARITY BEING 
Paen CHECKED MCPE - BIT #13 AND SC BIT #15 IN RHCS1 SHOULD GE SET 
6959 CHECK THAT RHCS!1 HAS 4200 
6960 O21SSe 012737 oO4200 9001124 he OV #4200, $GDDAT :GET GOOD = 124200 


Ell 
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CERHAD. Pil 21-DEC-77 12:48 Tel RHCS1 - MCPE BIT #13 (PARITY LINE = 0) 
63961 
696e 021564 017737 162270 001126 MOV JRHCS1, SBDDAT ; READ RHCS1 FOR COMPARISON 
7, 737 4 OO1126 CMP $GODAT : BDDAT COMPARE EXPECTED 
Paes ee ae eee 18 WITH DATA READ FROM 
6965 
care S1082 T5d32 Bifon $38 yt 
é ww Ve 
6968 OrTeR CLEARING | THE RH AND 
6969 :DEVICE BY AN RH CLEAR 
697 ; AND READI HERIL WITH 
6971 ;WRONG PARITY CHECKING 
697 ;RHCS1 SHOULD HAVE 4200 
697 124200 
6974 ‘BUT CONTAINED WHAT IS 
697 :GIVEN IN BAD RHCSi 
6378 021604 69S: 
6976 ;WRITE A ONE INTO TRE (RHCS1 - BIT #14) 
697 >THIS SHOULD NOT CLEAR MCPE OR 
6380 021604 012777 o40000 162246 hov @TRE,@JRHCS1 ;WRITE oe INTO TRE IN RHCS! 
6952 
6983 
ess CHECK THAT RHCS1 HAS 104200 
6385 021612 012737 104200 001124 hov #104200,$GDDAT ;GET GOOD = 124200 
6987 021620 017737 162234 001126 MOV SJRHCS1,$BO0DAT  ;READ RHCS1 peor COMPARISON 
6988 O2l62e6 023737 OO1124 OO011e6 CMP $GDDAT; SBDDAT ; COMPARE EXP 
6ses ;0A ATA WITH DATA READ FROM 
6390 ;RHCS1 
6991 021634 o01401 BEG 71$ :BRANCH IF GOOD 
6992 021636 104036 ERROR 36 
6993 ;AFTER CLEARING THE RH AND 
6994 j DEVICE REGISTERS BY AN 
6995 LEAR 
6996 * RHERT WAS CHECKED TO HAVE 
69937 : ZEROS 
6993e : WRONG PARITY CHECKING WAS 
ett :SET BY BIT IN RHCS2 
7000 :RHERL was AREAB TO SET 
7001 ;MCPE AND SC IN RHCS1 
7002 ;ON WRITING “1" INTO TRE 
4th Perr SHOULD HAVE 104200 
7005 :BUT CONTAINED WHAT IS 
7006 :GIVEN IN BAD RHCS1 
cree O21640 718: 
7009 ;NOW ERRORS WILL BE CLEARED BY RH CLEAR 
7010 SET "CLR" BIT #5 IN RHCSe 
7011 O21640 Ci2777 oO00040 162222 hov #CLR, JIRHCSe ;CLEAR BY RH INIT 
a O2ei64e 013777 OOSOIO i6e2i4 MOV UNIT, JRHCS2 :REINSTATE UNIT NUMBER 
7014 
7015 CHECK THAT RHCS1 HAS DVA!RDY 
7016 O21654 012737 oO4200 9001124 6 OV #OVAIRDY,SGDDAT ;GET GOOD = 4200 
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2i-DEC-77 13: 0 _ PAGE 436 
12:48 Tel 


738: 


000106 
005010 


162146 
001124 


oos000 001124 


l6el6e 001126 
COile4 OO01ie6 


F1ll 


HCS1 - MCPE BIT #13 (PARIT? LINE = 0) 


MOV JRHCS1, SBODAT ;READ RHCS1 core COMPARISON 
CMP $GODAT . £BDDAT ; COMPARE EXPEC 

a iF WITH DATAY READ FROM 
BEQ 73% :BRANCH IF GOOD 
ERROR 37 


;AFTER CLEARING THE RH AND 
i DEVICE REGISTERS BY AN 


;RH_ CLEAR 
RHR WAS CHECKED TO HAVE 
sueONg PARITY CHECKING WAS 


;ON NTO TRE 
i PREN. SETTING “CLR” IN RHCS1 
se80 SHOULD HAVE DVA!RDY 


42 
;BUT CONTAINED WHAT IS 
; GIVEN oN BAD RHCS1 


CHECK THAT RHCS2e HAS IR 


hov #1R,$GDDAT ;GET GOOD = 100 
BIS UNIT: $GODAT ! INCLUDE UNIT NUMBER 
MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP $GDDAT . $BDDAT ; COMPARE EXPECT 

He ATR WITH DATA READ FROM 
BEQ 75% :BRANCH IF GOOD 
ERROR 40 


;AFTER CLEARING THE RH AND 
s REVICE REGISTERS BY AN 


L 
REAL WAS CHECKED TO HAVE 
i; WRONG Pai ty i eet ae WAS 


:SET BY “PAT BIT IN RHCSe 
;RHERI WAS READ TO ger 
;MCP D sc $i 


CPE AN IN RHC 
ON ogg UE “1° INTO TRE 
;THEN SETTING “CLR” IN RHCS1 
; RHCS2 SHOULD HAVE IR 


=100 
i TOGETHER WITH a NUMBER 
:BUT CONTAINED W Is 
;GIVEN IN BAD Riese 


CHECK THAT Rae HAS 0 
#0, $GDDAT ;GET GOOD = 0 


OV @RHCS3, SBODAT ;READ RHCS3 4 COMPARISON 
MP $GDDAT; SBDDAT ;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


hov 
M 
c 


Sate gl MACY11 et one 
RHA . 


TUTUTU bb eb - OOO ON000 
NV OWONO ULC wl WON MULE WwW 
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021760 
Cei7be 


021764 
021764 
021772 
O0ee000 


022006 
Oee0ic 


Oee0le 
Oeedle 
d2e02e0 
Deedee 


022034 
022036 
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012737 
017737 
023737 
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i2:48 T2l RHCS1 - MCPE BIT #13 (PARIT?S LINE = 0) ¢ 
;RHCS3 

773% ;BRANCH IF GOOD 


BEG 

ERROR 41 
;AFTER CLEARING THE RH AND 
:DEVICE REGISTERS BY AN 


:RH_ CLEAR 
i SHERI WAS CHECKED TO HAVE 


; WRONG PARITY CHECKING WAS 
ET BY ae he ABT IN_RHCSe 
TO SET 


HCS1 
eta hea olathe 


GIVEN IN BAD RHCS3 


77S: 
:CHECK THAT RHBA HAS O 
ooco00 001124 MOV #0, SGODAT ;GET GOOD = 0 
162066 901126 MOV JRHBA , SBDDAT ;READ RHBA FOR COMPARISON 
001124 O61126 CMP $GDDAT,$BDDAT ;COMPARE EXPECTED 
0A Te WITH DATA READ FROM 
BEQ 79% :BRANCH IF GOOD 
rer Me sAFTER_C NG THE RH AND 
iDEVECE REG Fe RS Gy AN 
RHEL eas CHECKED TO HAVE 
‘WRONG PARITY CHECKING WAS 
iSET BY Spare BIT IN RHCSe 
:ACBE AND SC rR Raced 
;ON_ WRITING «fs NTO TRE 
; THEN ge TT ING “CLR" IN RHCS2 
HOULD HAVE O 
i BUT CONTAINED WHAT IS 
7a :GIVEN IN BAD RHBA 
ass :CHECK THAT RHBAE HAS 0 
o000c9 001124 MOV #0, SGDDAT ;GET GOOD = 0 
162104 oO01126 MOV QRHBRE,SBDDAT  ;READ RHBAE FOR COMPARISON 
001124 OO0lle6 CMP $GDDAT,$BDDAT ;COMPARE EXPECTED 
‘pare pHITH DATA READ FROM 
BEG 81s !BRANCH IF GOOD 
ERROR 43 
; AFTER “HEC RING THE RH AND 
: DEVI CE TERS BY AN 


‘HERI fias CHECKED TO HAVE 
ZEROS 


re 4 
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138 
RHCS1 - MCPE BIT #13 (PARIT’ LINE = 0) 


s HRONG PARITY CHECKING WAS 
T BY “PAT” BIT IN RHCS2 

‘HERI WAS READ TO SET 

:MCPE AND SC IN RHCS1 

:ON WRITING "1" INTO ig | J 

i TH a SETTING Wve IN RHCSi 

‘Be Eo 


HOULD HAVE 0 
NTAINED WHAT IS 
;GIVEN IN BAD RHSAE 


81s: 

*CHECK THAT RHWC HAS DO 

hov- «#0, SGDDAT GET GOOD = 0 

MOV RHWC. SBD ;READ RHWC FOR COMPARISON 

At pea AT COMPARE Ex Bee TES 
Scbbat $800 {DATA WITH DATA REAG FROr 
ai 

‘BRANCH IF GOOD 


;AF TER CLEARING THE RH AND 
;DEVICE REGISTERS BY AN 


RH CLEAR 
ra WAS CHECKED TO HAVE 


; WRONG PARITY CHECKING WAS 
:SET BY “P IN_RHCSe 


83 
44 


iON opp RB "1" INTO TRE 
R ae NG “C a” IN RHCS1 
: Riel HOULD HAV 
:BUT CONTAINED WHAT IS 
935 :GIVEN IN BAD RHWC 


FEE EE REE ERER EERE EERE EERE EEE EERE RE REESE ERE R ERE SRE EEE SESE EEE EST 
I STEST 22 RHCS1 - MCPE BIT #13 (PARITY LINE = 1) 
AN RH CLEAR ¢ T #S IN RHCS2) IS GIVEN TO CLEAR 

TEE "REGISTERS 


at "we x + 
iy RESS SeGrSTER (RHDA } 


ih “TREE PrANEE, BNO Bat egret DILL INVERT THE PARITY CHECKING 


READ RHDA A IT HAS ONE IN IT 
THIS R Oo ING. SHOULD E+ sc MCPE IN RHCS1 

CHECK RHCS1 TO HAVE ONLY ROY 

CHECK RHCSe, RHCS3, RHBA, RMBAE. RHWC TO HAVE APPROPIATE 


LU 
+ SHEESH ERERLELSEE EAE RAE RAS HERA EAERAHLELA SSAA LLAAFALASLE LF LERFRF FHA 


Tee: SCOPE on 
wae Sate rnn ‘ESET ee Kumger 


RV 
JSR PC, adaCLDISKk ;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 


UP) ORONO ROK ok 


SS 
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> 
OODOODODWODODOMOM 
MNO ULE loftue-O OW - 
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ooooci i6i7Se 
OG0020 161746 


o0000i odileY 


161732 OC011le6 
0611e4% OC1le6 


004200 001124 


161676 O01i26 
OOile4% O61126 


C001e0 001124 
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RHCS1 - MCPE BIT #13 (PARITS LINE = 1) 
;CLEAR RHWC AND FUNCTION BITS IM FHCs) 


:WRITE A ONE INTO RHDA - DISK ADDRESS REGISTER ee 
: THIS REGISTER IN TAPE DRIVES, is CALLED “RHFC FRAME ©O 
:AFTER WRITING THIS "I" THEN ON READING THIS REGISTEF 
: THE CONTROL PARITY LINE ty ig HAVE ZERO 
hov #8110,aRHDA ;WRITE "1" INTO RHOA 
:IN TAPE DRIVES CALLED RHFC 


- INVERT THE 7PARITY TO BE CHECKED BY SETTING “PAT” BIT #4 Ih PHOSE 
BIS #PAT, IRHCS2 ;SET PAT IN RHCS2 


CHECK THAT RHDA HAS BITO 
hov #B8ITO, $GODAT ;GET GOOD = 1 


MOV JRHDA, SBDDAT ;READ RHDA FOR COMPARISON 
CMP $GDDAt,$BDDAT :COMPARE EXP 
:DATA WITH DATA READ FROM 


: RHODA 
BEQ 6S$ ;BRANCH IF GOOD 
ERROR 4S 
;AF TER AN_RH CLEAR “1” 
; WAS WRITTEN a ape) REGISTER 


; I CSe WAS SET 

: THEN THE BOORESS REGISTER 
;WAS READ BAC 

;RHDA SHOULD NAVE BITO 


=1 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDA 
CHECK THAT RHCS1 HAS 4200 
hov #4200, $GDDAT ;GET GOOD = 124000 
MOV ODRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GODAT’S$BDDAT :COMPARE EXPECTED 
iDA TQ WITH DATA READ FROM 
67E :BRANCH IF GOOD 


Eg 
RROR 46 
;AFTER AN _RH CLEAR “1” 
; WAS WRITTEN INTO_ ADDRESS REGISTER 
R UNT os TAPE) 


e WAS SET 
: THEN THE ADDRESS REGISTER 
WAS READ BAC 

RCS SHOULD HAVE 4200 


24000 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


: CHECK THAT RHCS2 HAS IR!PAT 
Ov SIR!PAT,SGDDAT ;GET GCOD = 120 
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ee Pri MACY1i1 30% 12%) 2i-DEC-77 13: cg PAGE 140 


RHAD . 21-DEC-77 12:48 Te2 RHCS1 - MCPE BIT #13 (PARITY LINE = 1) 
7241 022204 053737 o0S5010 o01;e4 BIS UNIT, $GDDAT ; INCLUDE UNIT NUMBER 
724 
7e43 O22212 O17737 161652 001:26 MOV DRHCS2,fBDDAT ;READ RHCS2 FOR COMPARISON 
7244 Oeee20 023737 O0i124 Odlleb CMP $GDDAT , SBODAT ; COMPARE EXPECTED 
osue $ DAT ar Q_WITH DATA READ FROM 
7246 
rene ge22e6 001401 BEQ 695 :BRANCH IF GOOD 
7e4 4047 ? 
72493 ;AFTER AN RH CLEAR “1” 
7250 :WAS WRITTEN INTO ADDRESS REGISTER 
7251 : (FRAME COUNT IN TAPE) 
7252 ion IN RHCS2 WAS SET 
7253 THEN THE ADDRESS REGISTER 
7254 WAS READ BACK 
cees mice SHOULD HAVE IR!PAT 
é ; 
7257 TOGETHER WITH UNIT NUMBER 
7258 :BUT CONTAINED WHAT IS 
7259 :GIVEN IN 8AD RHCS2 
7260 022232 695: 
7261 CHECK THAT RHCS3 HAS O 
pee 022232 012737 o00000 001124 MOV #0, SGDDAT ;GET GOCD = 0 
7264 O22240 017737 161666 001126 MOV @JRHCS3,$80DAT ;READ RHCS3., FOR COMPARISON 
7265 Geee46 623737 001124 901126 CMP $GDDAT’S$BDDAT ;COMPARE EXP 
7266 :DATA WITH DATA READ FROM 
7267 :RHCS3 
7e68 Of2254 O01401 REG 71% :BRANCH IF GOOD 
72639 OCee2sé 104050 ERROR SO 
7270 ;AFTER AN RH CLEAR “1” 
7271 ; WAS WRITTEN INTO. ADDRESS REGISTER 
7272 (FRAME COUNT IN TAPE) 
72723 pat IN RHCS2 WAS SET 
7274 ; THEN THE ADDRESS REGISTER 
7275 WAS READ 3ACK 
727 ;RHCS3 SHIULD HAVE 0 
7277 ‘ut CON" RAINED WHAT IS 
ete BeOS GIVEN IN BAD RHCS3 
7273 Oe2260 71S: 
7280 -CHECK THAT RHBA HAS 0 
7581 022260 012737 oo0000 001124 Mov #0, SGDDAT ;GET GI0D = 0 
7283 022266 017737 161572 001126 MOV @RHBA , SBDDAT ;READ RHBA FOR COMPARISON 
7284 022274 023737 001124 061126 CMP $GDDAT,$BDDAT ;COMPARE EXP 
7285 :DATA WITH DATA READ FROM 
o5ES 022302 061401 jd IF GOOD 

4 BEG 73% ; Hi 

7288 022304 104051 ERROR 51 
7289 ;PF TER AN RH CLEAR “1” 
7290 34S WRITTEN INTO. ADDRESS REGISTER 
7291 (FRAME COUNT IN TAPE) 
7232 ;PAT IN RHCS2 Wi WAS SET 
7292 !THEN THE ADDRESS REGISTER 
7294 ; WAS READ BACK 
7235 ;RHBR SHOULD HAVE O 
72SE :BUT CONTAINED WHAT IS 
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RHCS1 - MCPE BIT #13 (PARITY? LINE = 1) 
;GIVEN IN BAD RHGA 


738: 
:CHECK THAT RHBRE HAS O 
MOV #0, SGDDAT ;GET GOOD = O 
MOV JRHBAE,SBDDAT ;READ RHBAE FOR COMPARISON 
CMP $GDLAT . SBDDAT ; COMPARE EXPECTED 
;DAT DATA a WITH DATA READ FROM 
BEQ 753 : BRANCH IF GOOD 
ERROR Se 
; AFTER AN RH CLEAR “1” ss 
:WAS WRITTEN INTO. AOORESS REGISTER 
: (FRAME COUNT IN APE) 
:PAT IN RHCS2 las '¢ 
; THEN THE ADORESS REGISTE.« 
:WAS READ BACK 
?RHBAE SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
oa :GIVEN IN BAD RHBAE 
¢ . 
-CHECK THAT RHWC HAS O 
MOV #0, SGDDAT ;GET GOOD = O 
MOV JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
CMP $GDDAT,SBDDAT ;COMPARE EXPEC 
ok, WITH DATA READ FROM 
773 :BRANCH IF GOOD 


BEG 
ERROR 53 
AFTER _AN RH CLEAR “i™ 
WAS WRITTEN _INTO ADDRESS REGISTER 
; (FRAME COUNT an oe 
far IN RHCSe WAS SET 
N_THE ABORESS REGISTER 
eeie READ A tie 


C SHOULD HAVE O 
oe CONTAINED WHAT IS 
775 :GIVEN IN BAD RHWC 
773: 


LReee eae e eee ETT PLICATED Ale (heal 61'S 
tETES TEST DUPLICATED A16 (RHCS1 BIT #8) 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 
MOVE 400 (ONE INTO Al6) IN RHCS1 

READ RHCS1 TO CONTAIN 600 (BIT #8 AND RDY) 

READ RHBAE TO CONTAIN “1” (BIT #0 HIGH) 


MOVE O INTO RHBAE (WRITING O INTO RHGAE BIT #0) 
READ RHBAE TO CONTAIN 
READ RHCS1 TO CONTAIN ONLY RDY (BIT #8 IN RHCS1 IS ZERO) 


OK OK oo ee 


ete te ee eee ee) 


SES 0140 
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001000 
0000e3 


040306 


000400 
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161440 


001126 
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Te3 


6S$: 


67$: 


Lil 


TEST DUPLICATED AL& (RHCS1 BIT #8) 


On Ne + atm gat ata inch ibs et da 
Te3: 


SCOPE 


MOV #23 SatSiNM ay " oF NUMBER 
JSR PC, JUCLDISK GIVE RH INITIALIZE 

FEAR RHC ANB E FUNCTION BITS IN RHCS1 
hoy © eALe SRHCST mst 400 INTO RHCS1 


CHECK THAT RHCS1 HAS Al1B!DVA!RDY 


hov #A16!DVA!IRDY, $GDDAT ;GET GOOD = 4600 
MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GDDAT:S$BDDAT COMPARE EXPECTED 

DR TQ WITH DATA READ FROM 
BEQ 653 :BRANCH IF GOOD 
sitsticge tests 1A TTING “CLR” B17 aS 

RIRCSE TO oninit RHE 
AT NTS RHCS4 


Pe WAS REA AD 
RHC SHOULD HAVE AL6!DVA!IRDY 


4600 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS! 


;CHECK THAT RHBAE HAS BITO 


Mov #BIT0, $GODAT ;GET GOOD = 1 
MOV DRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
CMP $GDDAT. $8DDAT ; COMPARE EXPECTED 
;PATA WITH DATA READ FROM 
67% BRANCH IF GOOD 


BEG 
meets ;OFTER SETT LR" BIT #5 
HcSe TO INIT THE RH 
‘Ale WAS WRITTEN INTO RHCS1 


1 
THEN N RHBRE WAS READ 
; RHBAE SHOULD HAVE BITO 


=1 
BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHBAE 


NOW MOVE a INTO RHBAE _— 


ITING O INTO RHBAE BIT #0) 
Aur JRHBAE WRITE ZERO INTO RHBAE 
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CERHAD. 


Pli 


022470 
B88s08 


OeeSle 
022514 


Oeesiéb 


Geesisb 


O2eS2e4 
OeeS3e 


022540 
Oees4e 


Oees44 
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012737 
835535 7 


091401 
1040S6 


012737 
017737 
023737 


001401 
104057 


ooooco $= 001124 


ABITS8 BBi18 


004200 9001124 


161330 001126 
O0i1e4% 001126 


Mil 


TEST DUPLICATED Al& (RHCS1 BIT #8) 


;CHECK THAT a | HAS 0 
#0, SGODAT ;GET GOOD = 0 


Mov 
Cae =» SEDEaS: SEBBAT COMPARE. EXP 25 0 eligebaeal 


WITH DATA READ FROM 
ae IF GOOD 


; AFTER a6 T TING 7f 0H BIT #S 
:IN att INIT_THE RH 
; wie INTO RHOS1 
HAS & AD 
RHBAE_WAS READ 
Lt a WAS WRITTEN 
jINTO R HBAE 

N_ READING ye 
i RNBAE SHOULD HAVE 0 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


BEG 69S 
ERROR S6 


69S: 
*CHECK THAT RHCS1 HAS DVA!RDY 
MOV sDVA!RDY,SGODAT ;GET GOOD = 4200 
MOV @JRHCS1, SBODAT ;READ RHCS1 m4. COMPARISON 
CMP $GDDAT’ SBDDAT ; COMPARE EXPECTED 
spare Mate DATA READ FROM 
BEG 715 : BRANCH IF GOOD 
ERROR S7 
;AFTER SETTING 7F oe BIT #5 
IN RHCS2 unt INIT THE RH 
:Al 6 WAS WRITTEN INTO RHCS1 
:RHCS1 WAS READ 
WAS READ 
4 N ZERO WAS WRITTEN 
'RHBAE WAS READ 
N READING RHCS1 
RECT SHOULD HAVE DVA!RDY 
‘BUT CONTAINED aH Is 
: GIVEN IN BAD RHCS 
718: 
5 RARER RES ELAAEKE EK AKAA LARA ELLA AKARARAKELELARKHAE RARE ELE REE 
 $TEST 24 TEST DUPLICATED A17 (RHCS1 BIT #9) 
;* CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
:% MOVE 400 (ONE INTO Al7) IN RHCS1 
;* READ RHCS1 TO CONTAIN 1200 (BIT #39 AND RDY) 


w 


MACY ( ) i-DEC-77 13:06. PAGE 144 
SERHAD. PIT : rye a a 13:48 : Te4 TEST DUPLICATED A17 (RHCS1 BIT #9) SES 0143 


7465 :% READ RHBAE TO CONTAIN “2” (GIT #1 HIGH) 
7466 ;* 
7467 te 
7468 :% MCVE O INTO RHBAE | SURI TING O INTO RHBAE BIT #1) 
7469 :# READ RHBAE TO CONTAIN 
7470 + # READ RHCS1 TO CONTAIN ONLY RDY (BIT #9 IN RHCS1 IS ZERO: 
74? ;# 
;# 
oa8 H + FEKRESEREERESEKERERESEREREKAEEA SRSA AAEREAESSRARALAF KEES HSEALSF SESE 
7474 O22544 oO00004 $éT24: SCOPE 
7475 Oe2eS46 O12706 001000 MOV aSTACK, SP ;RESET STA 
euze G2e5S2 012737 O000e4 oDo4Es6 MOV #24, aa TSTNM :SAVE TEST CKUMBER 
7478 022560 904737 040306 JSR PC, J#CLDISK ;GIVE RH INITIALIZE 
7479 :SETUP UNIT N 
2480 :CLEAR RHWC ANE FUNCTION wITS IN RHCS1 
F4g2 “WRITE “1" INTO A17 IN RHCS1 
oug3 022564 012777 901000 161266 MOV #A17, JRHCS1 :MOVE 1200 INTO RHCS1 
7485 
7486 
7487 CHECK THAT RHCS1 HAS A17!DVA!IRDY 
oes 022572 012737 o0S200 001124 hov #A17!DVA!IRDY, SGDDAT ;GET GOOD = 4600 
e431 Gaseok beara? ABlia4 ODLLSe CHP = SGODAT’ SBDDAT COMPARE EXPEC ECrED 
ouge 3D here BATA READ FROM 
7494 022614 001401 BEQ 65% BRANCH IF GOOD 
749S O22616 104060 ERROR 60 
7496 ;AFTER SETTING "CLR" BIT #5 
7497 i IN N_RHCSe TO INIT THE RH 
7498 : 7 WAS QlRITTEN INTO RHCS1 
7499 RHCS I RE 
7500 Riess SHOULD HAVE AL7!DVAIRDY 
7502 :BUT CONTAINED WHAT IS 
7503 : :GIVEN IN BAD RHCS1 
7504 022620 65S: 
7505 
7e07 ;CHECK THAT RHBAE HAS BITI1 i: 
HECK 
7508 022620 012737 oD0002 op1124 MOV #BIT1,$GDOAT ;GET GOOD = 2 
7510 O22626 017737 161276 OO1i26 MOV JRHBAE,SBDDAT  ;READ RHBAE peor COMPARISON 
7511 022634 023737 OO11e4% O01126 CMP $GDDAT;$BDDAT ;COMPARE EXP: 
rele . : DR TA WITH DATA READ FROM 
7514 O22642 001401 BEQ 67% :BRANCH IF GOOD 
751S 022644 104061 ERROR 61 
7516 - ;AFTER SETTING “CLR” BIT #5 
7517 :IN RHCS2 TO INIT THE RH 
7518 :A17 WAS WRITTEN INTO RHCS1 
7519 :RHCS1 WAS READ 
7520 : THEN RHBAE WAS READ 


CER 


022646 


022646 


O226Se 
Oe2eb60 
Oe26b66 


022674 
Oeeb76 


022700 


022700 
022706 
022714 


O227ee 
022724 
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008977 


012737 
017737 
023737 


001401 
104062 


012737 
017737 
023737 


001401 
104063 
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161256 


000000 O011e4 


161244 CO11i2e6 
001124 O0ile6b 


oo4e0c 001124 


161146 O01i126 
0011e4 oOOlieb 


673: 


69S: 


7138: 


co Ble 


TEST DUPLICATED A17 (RHCS1 BIT #9) 
; RHBAE SHOULD HAVE BIT1 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


;NOW MOVE O INTC RHBAE (WRRITE™ O_INTO RHBAE BIT #0) 


ELR JRHBAE WRITE ZERO INTO RHBAE 
-CHECK THAT RHBAE HAS O 
MOV #0, SGDDAT ;GET GOOD = 0 
MOV JRHBAE , 3BDDAT READ RHBAE FOR COMPARISAN 
CMP $GDDAT ; $BDDAT ; COMPARE EXPECTED 
:DATA WITH DATA READ FRO! 
: RHBAE 
69% :BRANCH IF GOOD 


BEG 

ERROR 62 
;AFTER SETTING 7th BIT aS 
i IN Bat? TO_INIT THE RH 

7_ WAS WRITTEN INTO RHCSi 

WAS READ 

WAS READ 

ees WRITTEN 


HAVE O 
AINED WHAT IS 
RHBAE 


;CHECK THAT RHCS1 HAS DVA!IRDY 


Mov #DVA!RDY,SGODAT ;GET GOOD = 4200 
MOV @JRHCS1 , SBDDAT ;READ RHCSi cet COMPARISON 
CMP $GDDAT ; $BDDAT : COMPARE EXP 

spare M ' WITH DATA READ FROM 
BEQ 71% :BRANCH IF GOOD 
ERROR 63 


; AFTER SETTING aw BIT #S 
;IN_RHCS2 TO INIT THE RH 
!A17 WAS WRITTEN INTO RHCS1 
;RHCS1 WAS READ 

;RHBAE_WAS READ 

; THEN ioe WAS WRITTEN 


‘BUT CONTAINED art Is 
:GIVEN IN BAD RHCS 
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tala sal al ul 
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022726 
O0e2730 
022734 
022742 


022746 


022754 


022762 
0ee770 


022776 
023000 


02300e 


923002 
0230190 
022016 


000004 
012706 
012737 


004737 


012777 


012737 
017737 
923737 


001401 
104064 


012737 


017737 
023737 
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001000 


o000es 


040306 


000100 16 


304309 00 


161972 OO 
001124 90 
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OO46S6 


1104 


1124 


1126 
1leb 


000100 O01124 


Te4 


TEST DUPLICATED AL7 (RHCS1 BIT #9) 


fp RRS SSREEAAEREERELHSEAI EASE LSLASLELALHLLLAHEAELES ES SSH HFS SH HDS 


:#TEST 25 TEST DUPLICATED IE (RHCS1 BIT #6) 
:* R UBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT aS, 
ROWE" GB" BRET ERTS TTB) In Rao eo 

.* 

:# READ Rees TO CONTAIN 208 (BIT #6 HIGH) 

es 

g * 

:# MOVE 0 yiNTO RHCSS_ (WRITING 0 INTO RHCS3 BIT #6) 

:* 

:# REAR R Hee y 18 KON TAN BRLY RDY (BIT #6 IN RHCS1 TS ZERO) 
. 


» pPORERESSEEEEREGRRESEREREESEESESSRESSEESSEREDESESESES SER ESEEESE 
COPE 


+éT25: 


6S$: 


;RESET STACK 
;SAVE TEST NUMBER 


;GIVE RH INITIALIZE 
igeT UP UNIT NUBER = 2 
EAR RHC AND FUNCTION BITS IN RHCS! 


-WRITE "1" INTO IE IN RHCS1 
Mov #IE,aRHCS1 ;MOVE 100 INTO RHCS1 


MOV aSTACK, SP 
MOV 82S, aeTSTNM 


JSR PC, J#CLDOISK 


CHECK THAT RHCS1 HAS IE!DVA!IRDY 


hov @IE!DVA!RDY, SGDDAT ;GET GOOD = 4300 
MOV RHCS1, SBODAT pce t pete COMPARISON 
CMP GDDAT, * $BbbaT + A SMPARE 

‘para, uiTa OATAS READ FROM 
BEG 6S$ ;BRANCH IF GOOD 
ERROR 64 


;AFTER SETTING 77" of 8S 
IN 1 ¥9 INIT THE R 

;IE WAS WRITTEN INTO RHCS1 
;RHCS1 WAS READ 

;RHCS4 SHOULD HAVE IE!DVA!IRDY 


BUT CONTAINED WHAT IS 
; GIVEN IN BAD RHCS1 


CHECK THAT RHCS3_HAS IE 


hov #IE,$GDDAT ;GET GOOD = 
MOV ORHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GDDAT’$BDDAT :COMPARE EXPECT 


:DATA WITH DATA READ FROM 


Dle 
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CERHAD.P11 21-DEC-77 12:48 Tes TEST DUPLICATED IE (RHCS1 GIT #6) SEG Ol4e 
7633 ; BCS 
7634 023024 001401 BEQ. 673 :BRANCH IF GOOD 
7635 OCes0e& 104065 ERROR 65 
7636 OF TER SETTING * OLR" BIT at 
7637 : IN RHCSE TO INIT THE R 
7638 IE WAS WRITTEN INTO RHCS! 
76393 :RHCS1 WAS READ 
7640 THEN RHCS3 WAS READ 
7641 1meSS SHOULD HAVE IE 
764 
oeus BUT CONTAINED WHAT IS 
7E44 :GIVEN IN BAD RHCS3 
gous 023030 67$: 
7647 -NOW MOVE O INTO RHCS3 (WRITING O INTO RHCS3 SIT #1) 
a 023030 ooso77 161076 tLe aJRHCS3 ;WRITE ZERO INTO RHCS3 
7650 
7651 -CHECK THAT RHCS3 HAS O 
ob5e 023034 012737 oo00000 001124 MOV #0, $GDDAT ;GET GOOD = 0 
7654 023042 017737 161064 O01126 MOV DRHCS3,$BDDAT ;READ RHCS3 FOR COMPARISON 
7655 O0e30S0 023737 OO112e4 OO011e6 CMP $GDDAT , $BDDAT ; COMPARE EXP 
7656 DATA WITH DATA READ FROM 
7657 :RHCS3 
7658 023056 001401 BEQ ect :BRANCH IF GOOD 
76539 Oe3060 104066 ERROR 66 
7660 ; AFTER SETTING “CLR” BIT #S 
7661 IN RHCS2 TO INIT THE RH 
7662 :IE WAS WRITTEN INTO RHCS1 
7663 *RHCS1 WAS READ 
7664 :RHCS3 WAS REA 
7665 THEN ZERO WAS WRITTEN 
7666 : INTO RHCS3 
7667 ;ON READING RHCS3 
7668 ;RHCS3 SHOULD E 
7669 :BUT CONTAINED WHAT IS 
7670 :GIVEN IN BAD RHCS3 
7671 O2206e 693: 
7672 
7673 
7674 Re CHECK THAT RHCS1 HAS DVA!RDY 
7675 023062 012737 oO04200 o01124 hov B#OVAIRDY,SGDDAT ;GET GOOD = 4200 
7677 O023070 017737 160764 001126 MOV JRHCS1,$BD0DAT  ;READ RHCS1 FOR COMPARISON 
7678 023076 023737 OO011e4 OO1126 CMP $GDDAT > $BDDAT ; COMPARE EXPECTED 
a fe DAT pare WITH DATA READ FROM 
7681 023104 o01401 BEG 713 BRANCH IF GOOD 
7682 Oe3156 104067 ERROR 67 
7683 ;AFTER SETTING "CLR" BIT aS 
7684 !IN RHCS2 TO INIT THE R 
7685 IE WAS WRITTEN INTO RHES! 
7686 tRHCS1 WAS READ 
7687 :RHCS3 WA 


S READ 
7686 :THEN ZERO WAS WRITTEN 





Ele 
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CERHAD. P11 21-DEC-* 45 res TEST DUPLICATED IE (RHCSI BIT #6) 
7689 ; INTO_RHCS3 
7690 RHCS3 W WAS READ 
7631 ON READING RHCS1 
c63e ;RHCS1 OT OULD HAVE DVAIRDY 
7693 4200 
7694 BUT CONTAINED WHAT IS 
7695 ‘GIVEN IN BAD RHCS1 
7696 0223110 Tis: 
ree 
¢ 
7699 + PERSE SSSESSESRSKESRE EES RESA REA SAARESKES SAF SSL SSSSSHFSLE ASRS SAAS 
£700 ‘ $TEST 26 RHCSi1 PROGRAM ERROR (PGE BIT #10) 
ad 
7702 :% CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 GIT aS) 
7703 ;* SET UP FOR A 10 WORD W 
7704 :* SET "G0" (RHCS1 BIT #0) TWICE IN TWO SUCCESSIVE 
7705 ;* INSTRUCTIONS 
7706 :# THIS SHOULD ULD SET. sc. QND TRE IN RHCS1 
7707 + AND P IN RHCS2 
798 :# RHCS3 ARE. CHECK ED 
7703 :# THE NUMBER OF WORDS ARE LARGE ENOUGH $0 THAT AFTER 
7710 : + ONE “BIS” INSTRUCTION TO SET “GO” IN RHC 
7711 :# THERE IS SUFFICIENT TIME TO GIVE ANOTHER “BIS” INSTRUCTION 
orig :* TO SET “GO” BEFORE THE FIRST “GO” HAS TIME TO COMPLETE 
-& 

7714 : + LEFSSSEFSKESSAESSSREKSAESRSKSKRAHSSHFKSHRESKRARAFSSSSSLSSSASLESS SS 
7715 0231106 oo0004 +éT26: SCOPE 
7716 O23ile 012706 C1000 MOV aSTACK, SP ;RESET STACK 
gre 023116 012737 O00026 oo4ESe MOV #26, a8 TSTNM :SAVE TEST NUMBER 
7719 023124 004737 040306 JSR PC, deCLDISK ;GIVE RH INITIALIZE 
7720 :SETUP UNIT NUBER 
cet CLEAR RHWC AND FUNCTION SITS IN RHCS1 
7723 SET UP RH FOR A 10 WORD WRITE 
7724 0235130 O12777 177766 160724 hov 8-10. , IRHWC ;WORD COUNT REGISTER=10 
77°eS Oe3l326 012777 OO4210 160720 MOV #WRFROM,IRHBA :BUS ADDRESS REGISTER=WRITBUF 
718 sAT"eVER ere Sevice iSmuRtL Agee” 
7728 023144 012737 177777 OO4e4Y hov 1, NOGO ;D0 NOT GIVE GO IN COMMAND ROUTINE 
7723 022152 004077 161462 JSR Ro! SCOMND :GO TO DO COMM 
7730 023156 004154 WRIDAT ;WRITE DATA 
7731 023160 052777 oo00001 160672 BIS #GO, JRHCS1 ;SET G 
5535 Geais8 pooeuD tea TP aosece 5 

NO :M Ni 
7734 G23172 o00240 NOP L 
3235 022174 052777 o00001 160656 BIS #GO,JRHCS1 SET bo WITHOUT TIME TO COMPLETE LAST GO 
7737 
7738 CHECK THAT RHCS1 HAS SC!DVA!ITRE!61 
2733 023202 012737 144061 OO01124 hov wSC!DVA!'TRE'61,$GDDAT ;GET GOOD = 144000 
7741 023210 017737 160644 001126 MOV DRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
774e 023216 023737 001124 O01126 CMP $GDOAT: SBDDAT ; COMPARE EXPECTED 





DATA WITH DATA READ FROM 
sRHCS1 


Fle 


ADC MACY 01 1046) i-DEC-77 13:06 PAGE 149 2 
SERUADLPTI  ei-bec-s> 18:48 726. ~RHCS1 PROGRAM ERROR (PGE BIT #10) SEG 0146 

cme SERRE 184d%4 Pion $5 practi 
74 9407 
7747 LAF TER SETTING TSLR™ BIT aS 
774g J RHCS2 TO INIT THE R 
7749 : AND GIVING TWO SUCCESS VE 
7750 :"GO" WITHOUT GIVING TIME FOR 
7751 i THE FIRST TO COMPLETE 
7752 :R HES 1 SHOULD HAVE SCIOVAITRE!S! 
7753 
7754 But CONTAINED WHAT IS 
7755 :GIVEN IN BAD RHCS1 
7756 023230 6S$: 
7757 CHECK THAT RHCS2 HAS PGE!OR 
7758 023230 012737 oCe200 001124 hov @PGE'OR,SGDDAT ;GET GOOD = 2000 
ae 3 023236 053737 O0S010 O011e4 BIS UNIT, * ebbaT : INCLUDE UNIT NUMBER 
7761 O23244 017737 160620 O01126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
776e OeseS2 023737 O0i12e4 O01126 CMP $GDDAT , $BDDAT ; COMPARE EXPECT 
7763 ;DAT WITH DATA READ FROM 
7764 :Phcse 
7765 023260 oO1401 BEG 67% :BRANCH IF GOOD 
7766 O23262 104071 ERROR 71 ieee. 
7767 AFTER SETTING CLR BIT aS 
768 PIN RHCS2 TO INIT THE R 
7768 AND GIVING TWO SUCCESS1 VE 
777 :"GO" WITHOUT GIVING TIME FOR 
7771 : THE FIRST TO COMPLETE 
oere 3 RHESE SHOULD HAVE PGE!OR 
7774 : TOGETHER WITH UNIT NUMBER 
777 :BUT CONTAINED WHAT IS 
7776 :GIVEN IN BAD Rice 
7777 O0e3264 673: 
7778 CHECK THAT RHCS3 HAS DBL 
dhe 023264 012737 ooe00e 401124 ov #DBL , SGODAT GET GOOD = O 
7781 023272 017737 160634 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
7782 023300 623737 OO112e4 OOlicS CMP $GDDAT ’ $BDDAT ; COMPARE EXPECTED 
7783 :DATA WITH DATA READ FROM 
7784 >RH Hes 
7785 023306 001401 BEG 695 :BRANCH IF GOOD 
7786 O2331C id407e ERROR 72 
7787 ;AF TER SETTING Fs: BIT ae 
7788 :IN RHCS2 TO_INIT THE R 

789 :AND GIVING TWQ SU CCESSIV E 
7730 :"GO" WITHOUT GIVING TIME FOR 
7793 ; THE FIRST TO COMPL ETE 
773e ;RHCS3 SHOU D HAVE DBL 
7793 :BUT CONTAINED WHAT IS 
te BR GIVEN IN BAD RHCS3 
7795 022212 693: 
77% 
7797 
773E FREESE E SEES EE ERE EES ES SELEFLEPE ES EERE ESSERE ELLER ERE A EERE EERE TREE 
ah» tSTEST 27 RHCSe - BUS ADDRESS INHIBIT BIT #3 
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023312 
023314 
023320 


023326 


023332 


023360 


023262 
023370 
023376 


02e34C4 
0223406 


000004 


004737 


012777 


004154 


012737 
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001000 
0000e7 


040306 


177766 


161260 


004260 


160464 
001124 


Gle 


RHCSe - BUS ADDRESS INHIGIT BIT #3 


cL “i. 1% wr ig BY A 0 CONTROL ES CLEAR (RHCSe BIT #& 
SET UP FOR A 2 WORD WRITE FROM A BUFFER TAGGED “WRFROM™ 
SET BUS END OF UR LT ke RHCSe BIT #3 “BAI” 


AT 

RHCST eb HAVE ONLY RDY AND COMMAND 

RHCSe TO moa BAI 

RHCS3_TO ye LB 

ae TO Have DRESS OF “WRFROM” 
RHBAE AND RHWC TO HAVE ZEROS 


NOW SET UP READ FOR ne SAME DATA WIT 
BAI SET TO wee INTO A BUFFER TAGGED SRE INTO" 
AFTER READ C 
RHCS1 TO HAVE ONLY RDY AND COMMAND 
eee TO ony VE BAI 
HOS3_TO HAVE O 
ae TO rye me ge 9 OF ml 


RHBAE AND RHWC T 
DATA IN REINTO BUFFER IS CHECKED WITH DATA IN 
WRFROM BUFFER 
- SEEEEERESEEEEE ELLER ASHES SELLE LEELA E HAE ESSE SEES SESE RESO E EE SS 


+ét27: SCOPE 


CeCe Re Oe eo 


MOV aSTACK, SP sRESET STACK 
oo4eS6 MOV #27, ae tSTNM :SAVE TEST NUMBER 
ISR PC, J8CLDISK ;GIVE RH INITIALIZE 
‘SETUP UNIT NUBER 
!CLEAR RHWC AND FUNCTION BITS IN RHCSi 
;SET UP 10 WORD WRITE FROM BUFFER TAGGED “WRFROM™ 
:WITH BAI IN RHCSe 
160522 MOV 4-10. ORHWC ;WORD COUNT REGISTER=10 
160522 BIS #BAI, ARHCS2 :BUS ADDRESS INHIBIT IN RHCS2 
160510 MOV #WRFROM, JRHBA ; BUS ADDRESS REGISTER= WRF ROM 
ISR RO, JCOMAD TO DO COMMAND 
WRIDAT WRITE DATA 
CHECK THAT RHCS1 HAS DVA!RDY!60 
001124 hov #DVA!RDY!60, $GDDAT ;GET GOOD = 4252 
001126 MOV BRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
001126 CMP $GDDAT: $BDDAT ; COMPARE EXPECTED 
;DAT DATA | WITH DATA READ FROM 
BEQ 653 ? BRANCH IF GOOD 
ERROR 76 


;AFTER SETTING a¥ th a 8S 
; IN RHCSe TO INIT THE R 


3A WRI E 
;W1ITH 1” m3 IN RHCSe SET 

AT END OF WRI 
;RHCS | SHOULD HAVE DVA!RDY!60 


42S2 
'BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS1 


Hle 


46} i-DEC-77 :06__PAGE 151 
cee O MACYil ee ea” 13 P25 


“PL 21-beC RHCS2 - BUS ADDRESS INHIBIT BIT #3 
7es7 023410 65S: 
“86 CHECK THAT RHCS2 HAS BAI!IR 
5859 623410 012737 000110 o01:24 hov #BAI'IP $GDDAT :GET GOOD = 10 
7360 023416 Of3737 OOSOIO OoOlleY BIS UNIT, $4¥DAT ? INCLUDE UNIT NUMBER 
fess GEIS GLCTHC ANTES GRINS © OE BREST-BEDRAT SESRARECBE con gormenusn 
7864 hogs: ;DAT a kITH DATA READ FROM 
786 
PRG 922440 903401 BEG b7 BRANCH IF GOOD 
SBE? OS344> 1O0407> ERROR 77 
7868 ; AF TER SETTING “CLR” BIT #5 
5883 i AN SRUSRE war te was BONE 
787i WITH BAI BIT IN RHCS2 SET 
7872 T END OF WRITE 
rBr3 :RucSe SHOULD HAVE BAI!IR 
5875 ‘TOGETHER WITH UNIT NUMBER 
78° . :BUT CONTAINED W 1s 
7877 !GIVEN IN BAD Riicse 
787 023444 67$: 
7875 ,CHECK THAT RHCS3 HAS 0 
5880 023444 012737 o00000 o61124 MOV #0, $G0D ;GET GOOD = 0 
7882 O234S2 017737 160454 001126 MOV JRHCS3,S$BDDAT  ;READ RHCS3 FOR COMPARISON 
7883 G2e3460 023737 OOL12D4 OOllz6 CMP $GDDAT.$BDDAT ;COMPARE EXPECTED 
7ee4 :08 CATA WITH DATA READ FROM 
7886 OC23466 00:401 BEG 69 ‘ BRARCH IF GOOD 
7B87 Oe3470 194100 ERROR 100 
7888 ;AFTER SETTING “CLR™ BIT wS 
7889 ;IN RHCSe TO INIT THE RH 
7890 'A 2 WORD WRITE WAS DONE 
7891 WITH BAI BIT | Ty RHCS2 SET 
7892 :8 T END OF W 
7893 RHCS3 SHOULD MEE. 0 
7894 !BUT CONTAINED WHAT IS 
7895 :GIVEN IN BAD RHCS3 
7896 023472 69S: 
7897 -CHECK THAT RHBA HAS WRFROM 
rese 023472 012737 OO4210 O011e4 Mov 8WRFROM,$GDDAT ;GET GOOD = 0 
7900 023500 0:7737 160360 001126 MOV DRHBA, SBDDAT ;READ RHBA FOR COMPARISON 
7901 Oe3506 023737 651124 OOllse CMP $GDDAt, SBDDAT i COMPARE EXPECTED i 
7308 ; DAT ar A WITH DATA READ FROM 
7904 023514 001401 7} ‘BRANCH IF GOOD 
5405 O53€16 10410! PEeoR ibe 8 
7906 ;AFTER SETTING “CLR” BIT #5 
790; :1N RHCS2 TO INIT THE RH 
7906 A 2 WORD WRITE WAS DONE 
2308 iW TH H Bal 81 ert mB RHCSe SET 
791i + HBA SHOULD HAVE WRFROM 


79ie2 ;BUT CONTAINED WHAT IS 





CERHADO As whe ee og 


CERHAD.F 


023520 
023S20 
023526 
023534 


‘ 0e3s4e 
cess 0e3544 


793e 023546 
7934 O23546 
7936 023554 
7937 Oe3Sbe 


7940 023570 
7941 4 Oe357e 


7967 023574 
7966 O0e3257€& 


2i-DeCc-r> 


Oiev7s7 ooooce O011e4 


017737 160376 
023737 OO0lle4 OCilee 


Giev37 oo0000 01124 


017737 160302 001126 
623737 001124 O011e6 


990004 


Sie706 061 





2i-DEC-77 
12:48 


ood 


13: 108. PAGE iSe 


Ile 


RHCS2@ - BUS ADDRESS INHIBIT BIT #3 


7138: 
»CHECKk THAT RHBFE HAS O 
Mov #0, $GODAT 
MOV QRHBAE , SBDDAT 
CMP $GOLAT : $BODAT 
BEG 73% 
ERROR 102 

733: 

“CHECK THAT RHWC HAS O 

MOV #0, SGDDAT 
MOV IRHWC , SBODAT 
CMP $GODAt, SBDDAT 
BEG 753 
ERROR 103 

7S$: 


;GIVEN IN BAD RHEE 


;GET GOOD = 0 


;READ RHBAE FOR COMPARISON 
; COMPARE EXPECTED 
:DAT WITH DATA READ FROM 


;RHBA Ae 
:BRANCH IF GOOD 


+4 SETTING “CLR” BIT ss 
iIN IR HCSe MY INIT THE RH 

WORD WRITE WAS DONE 
WITH BAI BIT IN RHCS2 SET 
oy ND_OF WRITE 


RHBAE SHOULD HAVE O 
BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


;GET GOOD = 0 

;READ RHWC FOR COMPARISON 
; COMPARE EXPECTED 

; OAT nae A WITH DATA READ FROM 
: BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT aS 
t 5 RHCSe ay INIT THE RH 


iGIVEN IN BAD RHWC 


SHEAFFER FLAAAAHFAAHLAAAASAEHAAAAAAF IP SFAEREFRHFHA FAFSA PSA SHH SE + 


(BIT jen TRe (BIT #14), SC ‘BIT ai 


ge AND _RHCS3 IPCKO BIT #0 


CONTROLLER CLEAR (RHCS2 BIT #5) 


T_TRE SC IN RHCS1 
E THIS SHOULD SET MOPE (RHCSe BIT #8) 


wn 


TEST 30 RHSC2 MDPE BIT 

:* CLEAR THE SUBSYSTEM BY A 

:* SET IPCKO (RHCS3 

;* MOVE ALL ZEROS INTO RH 

:* THIS SHOULD SET T “ 

;* READ RHDB ONC 

:* CHECK RHCS1 FOR RDY 

:* “CLR” (RHCS2 BIT #5) IS GIVE 

;* ALL ERRORS ARE CLEAR 

;* CHECK RHCS1, RHCS2, RHCS2, RHBA, RHBAE, RHWC 


FFSSFEAESAEASEEASASSSAELAE LEAF SEFSLEAEFEAREFSEAPHFSSFRHRE SPA APSA 


+4530: SCOPE 
MOV aSTACK, SP 





;RESET STACK 
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21-DEC-77 13:48 730 RHSC2 MOPE BIT #8 AND RHCS3 IPCKO BIT #0 
7969 023602 012737 000030 oco4ESe MOV #30, a8TSTNM ;SAVE TEST NUMBER 
+> 3610 004737 040306 JSR PC, JeCLCOISK :GIVE RH INITIALIZE 
sa5n - ‘SETUP UNIT NUBER a 
$655 SRE LAR RHIC ANC FUNCTION BITS IN RHCS! 
7374 023614 012737 00000 coNeEe MOV #0, IP 'IPCK BIT NO. FOR PRINTOUT 
é é 
=97— 023622 OS2777 900001 160302 BIS BIPCKO,RHCS3 ;SET IPCKO IN RHCS3-BIT #0 
$957 023630 005037 004210 CLR WRFROM WRITE ZERO INTO LOCATION 
r97g 023634 013777 ODN210 160240 MOV WRFROM,RHDB § :WRITE ZEROS INTO RHDB ONCE 
+980 -CHECK THAT RHCS1 HAS SC!TRE!DVA!RDY 
7381 O23e42 012737 144200 001124 hov BSC!TRE'DVA'ROY, $GDDAT ;GET GOOD = 144200 
5989 023650 017737 160204 001126 MOV ORHCS1,$BD0AT —; READ RHCS1_ FOR COMPARISON 
7984 O23656 023737 001124 001126 CMP SGDDAT’ $BDDAT : COMPARE EXPECT 
7985 :DAT WITH DATA READ FROM 
+986 ericsd 
5987 023664 001401 BEG 653 ‘BRANCH IF GOOD 
5988 23666 104140 ERROR 140 
7989 ;AFTER SETTING "CLA" BIT #5 
7996 IN RHCS2 TO INIT THE RH 
799] :IPCKO BIT #0 RHCS3 WAS SET 
5992 ‘ZEROS WERE MOVED INTO RHOE 
7995 :RHCS1 SHOULD HAVE SC!TRE!Dva!R 
$994 7 =144200 
7995 BUT CONTAINED WHAT IS 
7996 ?GIVEN IN BAD RHCS1 
7497 923670 65S: 
7938 023670 017737 160206 001200 MoV JRHOB, $TMPL READ RHDB ONCE 
lefele 
8001 -CHECK THAT RHCS3 HAS 1 
BOUe 02367 012737 000001 o01124 hov #1, SGODAT :GET GOOD = 1 
8004 023704 017737 160222 001126 Mov JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
8005 Oe37l2 023737 001124 OOLiSe CMP $GCOAT’ SBDDAT : COMPARE EXPECTED 
B096 : DAT BTR WITH DATA READ FROM 
8008 023720 001401 BEG 67% BRANCH IF GOOD 
8008 023722 104104 ERROR 104 
8010 ;AFTER SETTING "CLA" BIT #5 
BO1i SIN RHCS2 TO INIT THE RH 
8012 'IPCKO BIT #0 RHCS3 WAS SET 
B13 Boe WERE MOVED INTO 
8015 RHDB WAS READ THEN 
Big i RHCS3 SHOULD HAVE 1 
8018 ‘BUT CONTAINED WHAT IS 
8019 ‘GIVEN IN BAD RHCS3 
goed 023724 675: 
e022 ,CHECK THAT RHCS2 HAS MDPE!IR 
8023 022724 012737 oODDSDD 001124 hov BMOPE' IR. SGDDAT :GET GOOD = SOO 
8024 023732 065737 605010 001154 BIS UNIT $GOBAT INCLUDE UNIT NUMBER 
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CERHAD.P11 21-DEC-77 12:48 720 RHSC2 MOPE BIT #8 AND RHCS3 IPCKO BIT #0 

g025 

8026 023740 017737 160124 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
5 Sy 53> 4 126 CMP $GDDAT.SBDDAT :COMPARE EXPECTED 

os aaa 2 eae eee: mene DATA MITH DATA READ FROM 

8029 

Bose OSscee fouros BEeoR Soe Lowen BF ante 

8532 : : ;AFTER SETTING "CLA" BIT w5 

8033 SIN RHCS@_ TO INIT THE 

8034 !IPCKO BIT #0 Riess HAS SET 

8035 ;ZEROS WERE MOVED INTO 

8037 RHDB WAS READ THEN 

8038 :RHCS2 SHOULD HAVE MOPE! TR 

8040 i TOGETHER WITH UNIT NUNBE. 

8041 ?BUT CONTAINED WHAT IS 

g042 !GIVEN IN BAD rticee 

8043 023760 69S: 

= 

8046 023760 004737 040306 ISR PC, JSCLDISK ;GIVE RH INITIALIZE 

8047 !SETUP UNIT NUBER i 

8048 SeCEAR RHC AND FUNCTION BITS IN RHCS! 

8050 

8051 “CHECK THAT RHCS1 HAS RDY!DVA 

B02 023764 012737 OO4200 o01124 hov #RDY!DVA,SGDDAT ;GET GOOD = 4200 

8054 023772 017737 160062 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 

8055 O24000 023737 OG1124 OOliDe CMP SGDDAT’ S2DDAT COMPARE EXPECT 

BOSE iO ATA WITH DATA READ FROM 

BOSS O24006 001401 BEO 71$ + BRANCH IF GOOD 

8059 d24010 104106 ERROR 106 

8060 ;AETER SETTING “CLR” BIT 495 

8061 IN RHCS2 TO INIT THE R 

8062 ?IPCKO BIT #0 RHCS3 WAS Mser 

B063 ; ZEROS WERE MOVED INTO 

8065 ?RHDB WAS READ THEN 

BObE AN RH CLEAR (RHCS2 BIT #5) 

BOG? WAS GIVEN THIS SHOUL 

8068 :CLEAR ALL ERRORS 

B69 RACE SHOULD HAVE RDY!DVA 

8071 BUT CONTAINED WHAT IS 

8072 ?GIVEN IN BAD RHCS1 

8073 Oe4ole2 71%: 

8074 CHECK THAT RHCS2 HAS IR 

8075 024012 012737 oODD100 001124 hov #1R, SGDDAT :GET GOOD = 100 

B076 deNde0 053737 005010 901124 BIS UNI t, SGDDAT ! INCLUDE UNIT NUMBER 

8078 O24026 017737 160036 001126 MOV SRHCS2,SBDDAT —; READ RHCS2_ FOR COMPARISON 

8079 O24034 023737 O01124 OO11DE CMP SGDDAT $BDDAT  :COMPARE EXPECTED 

80280 DATA WITH DATA READ FROM 





Lie 


oem ll apa Feet ome @l=DEC-77 13: <f PAGE 155 


CERHAD.P 2l1-DEC-77 12:48 730 RHSC2 MOPE BIT #8 AND RHCS3 IPCKO BIT #0 
8081 ;RHCS2 
Boss Gevo4s io4107 ERROR 10> jammin thee ates 

0 
Bett ;AFTER SETTING “CLR” BIT #5 
soss IN RHCS2 TO INIT THE RH 
8086 : IPCKO BIT #0 RHCS3 WAS SET 
8087 i ZEROS WERE MOVED INTO 
808s 
gos3 an WAS READ THEN 
8030 3A N RH CLEAR (RHCSe BIT #5) 
8091 HAS GIVEN THIS SHOULD 
8092 : CLEAR ALL ERRORS 
aes, s RHC Se SHOULD HAVE IR 
ky 
803s : TOGETHER WITH eit NUMBER 
8036 :BUT CONTAINED W Is 
8097 : GIVEN IN BAD rtices 
gs098 O24046 733: 
8039 :CHECK THAT RHCS3 HAS O 
gine 024046 012737 ooooo0 oOOlieY MOV #0, S$GDDAT ;GET GOOD = 0 
gigs GRIGG: 1273 aSTPEG SBLEE CRE -RGOSER:SESBRT :ESRBAReESHERREBONPARISON 
‘ , 

8104 : DAT A WITH DATA READ FROM 
8105 HCS3 
8106 O24070 001401 BEQ 75$ BRANCH IF GOOD 
8107 Oe407e 104110 ERROR 10 
8108 ie lec Se TTANS “CLR” BIT #S 
ets Hpk #7 Oo Riess Has” SET 
Bi is ae tm MOVED into 
8113 ‘BHD WAS READ THEN ‘ 
8114 ;AN RH CLEAR (RHCS2 BIT #5) 
8115 WAS siyer THIS SHOULD 
8116 :CLEAR A LL ERRORS 
8117 ;RHCS3 SHOULD 
81i8 ;BUT CONTAINED WHAT IS 
6119 ;GIVEN IN BAD RHCS 
8120 024074 733: 
8lel ;CHECK THAT ae HAS 0 
Biss 024074 012737 ooo000 001124 MOV #0, SGDDAT ;GET GOOD = 0 
812% O2410e 017737 157756 001126 MOV JRHBA , SBDDAT ;READ RHBA FOR COMPARISON 
B1eS O24110 023737 001124 001126 CMP $GDDAT, $8DDAT ; COMPARE EXPECTED 
Biss ; DAT ahh A WITH DATA READ FROM 
Bi2e8 Oe4¥116 CO14o1 BEQ 773 : BRANCH IF GOOD 
812e9 Oe4¥1ie0 104111 ERROR 111 
8130 ;AFTER SETTING “CLR” BIT #5 
8131 ; IN RHCS2 TO INIT THE RH 
813e ;IPCKO BIT #0 RHCS3 WAS SET 
B133 : ZEROS WERE MOVED INTO 
8134 : RHDB 
8135 : RHDB WAS READ THEN 
8136 AN RH CLEAR (RHCS2 BIT #5) 
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@ 

-_ pe 
Ww 
eles) 


024122 

024122 012737 
024130 9017737 
024136 023737 


024144 0 
Ge4i46 1 


024150 
0241S0 012737 


O24iS& 017737 
024164 023737 


COOKS OOCOCUUMIMUIMUNIUIUIN £ LES CLCELC EES 


Ge4i76 


+0 0 0 0) 0G CHO] OD CD NIN I INNIS 
NVK-OWONOWULWMY-OWONOW £WM- OUD NOU EL WM OW DONO CW OWONOU CWO 


81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
Bi 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
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900000 


187774 
001124 


000000 


157700 
001124 


001124 


001126 
001126 


001124 


001126 
001126 


736 


798: 


813: 
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RHSCe MOPE BIT #8 AND RHCS3 IPCKO BIT #0 


;WAS GIVEN THIS SHOULD 
;CLEAR ALL ERRORS 


13:06 PAGE 156 


:RHBA SHOULD HAVE O 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 

«CHECK THAT RHBAE HAS O 

Mov WO. SCOBAT ;GET GOOD = 0 

MOV JRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 

CMP SGDDAT,$BDDAT ;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
; RHBAE 

793 :BRANCH IF GOOD 


BEG 
ERROR 112 
;AFTER SETTING “CLR” BIT «S 
:IN RHCSe TO INIT THE RH 
:IPCKO BIT #0 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 
:RHDB WAS READ THEN 
:AN RH CLEAR (RHCS2 BIT #5) 
: HOULD 


;RHB OULD HAVE 
:BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHBAE 

ue) GDDA 


MOV DRHWC , SBDDAT 
CMP $GDDAt, SBDDAT 


;GET GOOD = 0 
;READ RHWC FOR COMPARISON 
; COMPARE EXPEC 
;DATA WITH DATA READ FROM 
81$ :BRANCH IF GOOD 

;AFTER SETTING “CLR” BIT #5 
IN RHCSe TO INIT THE RH 
:IPCKO BIT #0 RHCS3 WAS SET 
: ZEROS WERE MOVED INTO 


RHDB WAS READ THEN 
'AN RH CLEAR (RHCS2 BIT #5) 
HOULD 


: ERRORS 
{BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHWC 


;CHECK THAT RHWC_HAS 0 
V #0,$ T 


s EERE ERE KER EERRKKREERHRAERKRKRF RE RELA KEKE LRARERAKKARERAL HL LAEE 


kTEST 3 
;* 


i RHSC2 MDPE BIT #8 AND RHCS3 IPCK1 BIT al 
CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2e BIT #5) 


ER 


3 
8210 
8 


oO mMACY11 
Pll 


024266 
0e4270 


Oe427e2 
Oe4e272 


024300 
024306 
0243i4 


Oe43e2 
De43e4 


202 0N63 


2i-DEC- 


000004 
O1e706 
012737 


004737 


012737 
0S2777 
005037 
013777 
012737 
017737 
023737 


001401 
104140 


017737 


012737 


Nle 


pBigQEC-77 13:08, PAGE 15¢ 2 MDPE BIT #@ AND RHCS3 IPCKI BIT #1 
SET_IPCKI St tS 60 aide o 


001000 
000031 


O4O30€ 


000001 


004210 


144200 


1S7602 
001124 


157604 


000062 


157620 
001124 


OO46S6 


004662 
157700 
157636 


001124 


001126 
001126 


001200 


001124 


001126 
001126 


Te ee? so. 


Stee er ee esas eras 


+6 


65$: 


MOVE 
TH HIS & 


NC 
CHECK RHCS1 FOR ROY (BIT #7) 
ace CRHESe BIT #S) IS GIv ven 


O SET_T RHES 
8-0 E THIS SHOULD Reet MOPE (RHCSe BIT #8) 
TRE (BIT #14), SC ‘(BIT #15) 


L_ ERRORS HR 
CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


MOV 
MOV 


JSR 


MOV 


MOV 
CMP 


BEQ 
ERROR 


MOV 


Mov 


MOV 
CMP 


BEG 
ERROR 


;CHECK THAT RHCS3 _ 4 
#2, SGODAT 


Se Bs eee ee ae 
COPE 


aSTACK, SP ;RESET_ STA 


#31,a8TSTNM :SAVE TEST NUMBER 
PC, J#CLDISK ;GIVE RH INITIALIZE 

:SETUP UNIT NUBER 

:CLEAR_RHWC AND FUNCTION BITS IN RHCSI 
#1, IP :IPCK BIT NO. FOR PRINTOUT 


eke @RHCS3 ;SET trek) IN RHCS3-BIT #1 
WRFROM’ WRITE ZERO INTO LOCATION 
WRF ROM, JRHDB ;WRITE ZEROS INTO RHDB ONCE 


;CHECK THAT RHCS1 HAS SC! TRE!DVA!RDY 


aSC!TRE!DVA!RDY,SGODAT ;GET GOOD = 144200 


@JRHCS1, SBODAT ;READ RHCS1 FOR COMPARISON 
SGDDAT; S$BDDAT ; COMPARE EXPECTED 
i WITH DATA READ FROM 


RH eS 

bss ;BRANCH IF GOOD 4 
;QFTER SETTING "CLA" BIT #5 
;IN RHCS2 TO INIT THE RH 


R 
:IPCK1 BIT #1 RHCS3 W ae SET 
;ZEROS WERE MOVED INTO RHDB 
RHCS I SHOULD HAVE SC! TRE!DVA!RDY 


14 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS1 


@JRHOB, STMP1 ;READ RHOB ONCE 
;GET GOOD =e 
JRHCS3,$BDDAT | ;READ RHCS3 FOR COMPARISON 
$GDDAT ; SBDDAT ; COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
:RHCS3 
o7s ;BRANCH IF GOOD 
AA + SETTING “CLR” BIT #5 


:IN RHCSe TO INIT THE RH 
:IPCK1 BIT #1 RHCS3 WOS SET 


SEG 0:56 


B13 
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12:48 731 RHSCe MOPE BIT #8 AND RHCS3 IPCKI BIT #1 
8249 ;ZEROS WERE MOVED INTO 
8250 : RHO 
8251 ;R WAS READ THEN 
8252 ;RHCS3 SHOULD HAVE 2 
253 
B54 BUT CONTAINED WHAT IS 
gess :GIVEN IN BAD RHCS3 
Bese 024326 673: 
8258 -CHECK THAT RUCS2 HAS MDPE!IR 
8259 024326 012737 cCOOSOO 001124 MOV SMDPE'IR,SGDDAT ;GET GOOD = S00 
Be60 024334 653737 OOSoiO o01124 BIS UNIT. S$GDDAT ‘INCLUDE UNIT NUMBER 
Bebe 24342 017737 187522 O01126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
8263 O243S0 023737 001124 O011e6 CMP $GDDAT, SBDDAT ; COMPARE EXPECTED 
8264 :DATA WITH DATA READ FRO 
8265 :RHCS2 
8266 024356 00140! BEG 69% :BRANCH IF GOOD 
8267 024360 104105 ERROR 195 
8268 AFTER SETTING “CLR” BIT #S 
8269 ; IN RHCS2 TO INIT THE 
8270 :IPCK1 BIT #1 RHCS3 WAS SET 
ge71 ; ZEROS WERE MOVED INTO 
8272 ? RHOB WAS READ THEN 
8274 ;RHCS2 SHOULD HAVE MDPE!IR 
8275 =500 
8276 TOGETHER WITH UNIT NUMBER 
8277 !BUT CONTAINED W Is 
8278 :GIVEN IN BAD Riicee 
8279 024362 69S: 
ar 
8282 024362 004737 oO40306 ISR PC, JeCLDISK ;GIVE RH INITIALIZE 
8283 :SETUP UNIT NUBER 
8284 ;CLEAR RHWC Al 
8285 
8256 
8287 CHECK THAT RHCS1 HAS RDY!DVA 
g288 024266 012737 oO4200 oO011e4 hov #RDY!DVA,SGDDAT ;GET GOOD = 4200 
8290 024374 017737 157460 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
B2e91 Oe4402 023737 OOl1e4 OOlice CMP $GDDAT;S$BDDAT :COMPARE EXPECTED 
esos :DA rey ITH DATA READ FROM 
8294 OC244i0 OO14O1 BEG 718 :BRANCH IF GOOD 
B2e9S Oe44ie 154106 ERROR 106 
Be9e ; AFTER SETTING “CLR” BIT aS 
8297 ;IN HCSe TO INIT THE RH 
8298 :IPCK1 BIT #1 RHCS3 Was SET 
econ ; ZEROS WERE MOVED INTO 
8301 HOB WAS READ THEN 
830e H CLEAR (RHCSe BIT #5) 
8303 HAS RO VER THIS SHOULD 
6304 ‘CLEAR ALL ERRORS 
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peed eelecdesTvelestereuten seles) 
CWI) IW) Wd WI) WI IW Wd) GW GW) 


TOPUTy Putuly Me & ee 2 OO 9 
PUL WU OOD ITU £ OU ODD) 


Ww 


Pil 


a24414 
o24414 
oe44e2 
024430 
024436 


BS4a46 


024450 
024450 
024456 
024464 


024472 
024474 


024476 
024476 
oe4so4 


2i-D—eC-77 


Cle737 


012737 
017737 


21-DEC-7" 13: — is9 


12:48 


000100 
005010 


157434 
001124 


000600 


66:12 


000000 
157354 


C13 


RHSC2@ MOPE BIT #8 AND RHCS3 IPCK1 BIT al 


TiS: 
: CHECK THAT RHC Se HAS IR 
001124 MOV GODAT 
O011e4 BIS gate? $eDDaT 
001126 MOV JRHCS2, SBDDAT 
001126 CMP SGDOAT ; $BDDAT 
? 
FEB oR 33 
733: 
:CHECK THAT RHCS3 HAS 0 
001124 MOV #0, SGDDAT 
1126 MOV RHC 
B8tiSe ies Se DOAT SBDDAT 
BEG 753 
ERROR 110 
7S$: 
:CHECK THAT RHBA HAS O 
001124 Mov #0, SGDDAT 
001126 MOV JRHBA, SBDDAT 


feet 3 2) SHOULD HAVE RDY!DVA 
T CONTAINED WHAT IS 
Ye BAB RHCS 
;GET GOOD = } 00 
; INCLUDE UNIT NUMBER 
COMPARE” EXPECTE COMPAR 1 SON 
iar DATAS Reap FROM 
RH nese 
;BRANCH IF GOOD 
;AFTER SETTING a} he BIT 4S 
N ee TO INIT THE RH 
be BI #1 Ress has SET 
RE MOVED INTO 


if WAS READ _THEN 
;AN RH CLEAR ge Bsr aS) 
eae THIS SHOU 

ERRORS 


: RHCSe ehOuLD HAVE IR 

: TOGET HER WITH UNIT NUMBER 

;BUT CONTAINED IS 

‘GIVEN IN BAD Riese 

;GET GOOD = 0 

s READ RHCS3_F FOR. COMPARISON 
ARE 

;DATA WITH DATAS READ FROM 

: RHCS3 

:BRANCH IF GOOD 

3 AFTER SETTING "CLA" BIT as 


cat, 'S NIT THE RH 
IPcki T #1 TRHess WAS SET 
ZEROS WERE MOVED INTO 


RHDB WAS READ THEN 
'AN RH CLEAR (RHCS2 BIT #5) 
GIVEN IN BAD RHCS3 


;GET GOOD = 0 
;READ RHBA FOR COMPARISON 


D13 
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CERHAD.F11 21-DEC-77 12:48 731 RHSC2 MOPE BIT #8 AND RHCS3 IPCK1 BIT #1 
4 023737 24 001126 omMP $GDDAT,$BDDAT ;COMPARE EXPECTED 
i, ee eee eet iBATA WITH DATR READ FROM 
S303 4 001401 77S + ORBNCH IF GOOD 
= ; 
8382 gsyese pgayot FEBor fii Fee 
8366 :AFTER SETTING cle BIT aS 
367 THOR HCBe TO INIT THE R 
S3e5 PCK1 BIT #1 RHCS3 Has SET 
8369 i ZEROS WERE MOVED INTO 
7 ; 
g35° ERHDB WAS READ THEN 
8372 H CLEAR (RHCS2 BIT #5) 
8373 "Ma reader THIS 5 SHOULD 
8374 
837 A SHOULB HAVE 0 
8376 Bur CONTAINED WHAT IS 
8377 !GIVEN IN BAD RHGAS 
8378 o24524 77S: 
B37 ;CHECK THAT RHBAE HAS 0 
8380 024524 012737 o00000 001124 MOV #0, SGDDAT ;GET GOOD = 0 
8382 024532 017737 157372 oOo112e6 MOV DRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
8383 Oe454O 023737 001124 OOlice CMP $GDDAT, $BDDAT ; COMPARE EXPECTED 
8384 :OAT A WITH DATA READ FROM 
838s RHBAE 
8386 O24s54 001401 BEG 79% BRANCH IF GOOD 
B38? Sexsso id4ile ERROR lie 
8388 ;AFTER SETTING "CLR BIT aS 
8389 :IN RHCS2 TO INIT THE RH 
8390 :IP ckt 3tt #1 RHCS3 WAS SET 
8391 : ZEROS WERE MOVED INTO 
8392 : RHOB 
8393 :RHDB WAS READ THEN 
8394 :AN RH CLEAR (RHCS2 BIT #5) 
8395 !WAS GIVEN THIS SHOULD 
83 ?CLEAR ALL 
8397 :RHBAE SHOULD 
9398 :BUT CONTAINED WHAT IS 
6399 :GIVEN IN BAD RHBAE 
8400 o24sSe 79S: 
8401 -CHECK THAT RHWC HAS O 
Bde O245S2 012737 ocO0D0c0 001124 Mov #0, SGDDAT ;GET GOOD = 0 
8404 O24S60 017737 157276 001126 MOV DRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
840S Oe4S66 023737 601124 OCll26 CMP SGODAT, SBDDAT ; COMPARE EXPECTED 
sueP ;DAT are WITH DATA READ FROM 
8408 O24S574 O61401 BEG 81 $ BRANCH IF GOOD 
8409 Oe4576 104113 ERROR 13 





Ay SETTING “CLR” BIT aS 
> IN RHCS2 T 


RH 
; IPC Rt BIT #1 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 


: RHDB WAS READ THEN 
:AN RH CLEAR (RHCS2 BIT #5 
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8417 ;WAS GIVEN THIS SHOULD 
8418 :CLEAR ALL ERRORS 
8419 >RHWC SHOUL 
8420 :BUT CONTAINED WHAT IS 
8421 :GIVEN IN BAD RHWC 
B4ee Ge4e00 813: 
B423 
Base 
842E psesetesnnnpatepnsyetessstegees an Cree tices Bt? + 
B4e7 ‘STEST 32 RHSC2 MOPE BIT #8 AND RHCS3 IPCKe BIT #2 
8428 :# CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5 
B4e9 :* SET IPCKe (RHCS3 #2) 
8430 ;* MOVE ALL ZEROS INTO RHDB TWICE 
843i :* THIS SHOULD NOT SET TRE SC IN RHCS1 
8432 : READ RHDB ONCE THIS SHOULD oset HOPE (RHCS2 BIT at. 
8433 :* CHECK RHCS1 FOR RDY (BI TRE (BIT #14), SC (BIT #15) 
8434 i READ RHDB A SECOND TIME. AeeK RHCS1, RHCS2, RHCS3 
8435 ;# “CLR” (RHCS2 BIT #5) IS G{VEN 
8436 1% ALL ERRORS ARE CLEARED 
gi32 :% CHECK RKCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 
8439 +s RHEE SRERE KERR REFERER REEREREERERKEREERERREE RELA SERA S RELA ELS FLEE ESSE 
8440 O24600 o00004 t$132: SCOPE 
B441 Oe4602 012706 9001000 MOV aSTACK, SP ;RESET STACK 
Bute 024696 012737 O00032 oo4ESE MOV #32¢, a8tTSTNM :SAVE TEST NUMBER 
BY44 024614 004737 040306 JSR PC, J#CLDISK ;GIVE RH INITIALIZE 
844s :SETUP UNIT NUBER 
Boe :CLEAR RHWC AND FUNCTION | BITS IN RHCS1 
aad 024620 012737 o00002 oxo4Ebe MOV #2,IP :IPCK BIT NO. FOR PRINTO 
8449 024626 052777 OO00004 157276 BIS #IPCK2, IRHCS3 ;SET IPCK2 IN RHCS3-BIT #2 
8450 024634 005037 oOd4210 CLR WRFROM RITE ZERO INTO LOCATIO 
84S1 Oe4640 013777 OO4e10 157234 MOV WRFROM, JRHDB SWRIT — ZEROS INTO RHDB ONCE 
Buibe 024646 913777 OO04210 157226 MOV WRF ROM; JRHDB ‘WRITE ZERO SECOND TIME 
B4S4 *CHECK THAT RHCS1 HAS an ROY 
B55 024654 012737 OO4200 001124 MOV #DVAIRDY,SGDDAT ;GET GOOD = 4200 
B4S7 OCex66e 017737 157172 O01126 MOV JRHCS1,$BDDAT  ;READ RHCS1 pb or COMPARISON 
B84S8 024670 023737 O011e4 O01126 CMP $GDDAT;$BDDAT COMPARE EXPECT 
Bure pare Mate DATA READ FROM 
B461 024676 001401 BEQ 6S$ :BRANCH IF GOOD 
B462 924700 104140 ERROR 140 
8463 ;AFTER SETTING 7 BIT #5 
BY464 3 IN HCSe TO INIT THE RH 
BYES :IPCKe BIT #2 RHCS3 WAS SET 
airs 3 gEROS WERE MOVED INTO RHOB 
Bure jRHCS1 SHOULD HAVE DVA!RDY 
2470 ‘BUT CONTAINED WHAT IS 


B42 024702 :GIVEN IN BAD RHCS1 


Qo 
uw 
w 
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e473 Ge4702 017737 187174 001200 MOV JRHDB, STMP1 ;READ RHDB ONCE 

4 

S47 

8476 » CHECK THAT RHCS3 HAS 4 

e477 024710 012737 oo0004 oo11e4 Mov #4, SGODAT :GET GOOD = 

$ice GREG GAOT ARTHAS SEL || REUSRPLEEBBET. CSRBARECRE ED gopmmtson 
g4ei . : ‘DATA WITH Data READ FROM 
4 

8483 O24722 00140! BEG 67S :BRANCH IF GOOD 
e4e4 024734 104104 ERROR 104 

g4es ;AFTER SETTING “CLR™ BIT #5 
8486 :IN RHCSe TO INIT THE RH 
B487 :IPCKe BIT #2 RHCS3 WAS SET 
B46 : ZEROS WERE MOVED INTO 
8490 RHE WAS READ THEN 

g431 ;RHCS3 SHOULD HAVE 4 

8493 ry CONTAINED WHAT IS 

8494 GIVEN IN BAD RHCS3 
8435 024736 67S: 
8497 CHECK THAT RHCS2 HAS MDPE!OR! IR 
8498 024736 612737 000700 001124 hov aMOPE!OR!IR, SGDDAT ;GET GOOD = 700 
84399 024744 053737 OOSOIO O01124 BIs UNIT. $GDDAT’ ; INCLUCE UNIT NUMBER 
8501 O247S2 017737 157112 001126 MOV DRHCS2,$BDDAT  ;READ RHCSE FOR COMPARISON 
8502 024760 023737 OO01124 OOll26 CMP $GDDAT.$BDDAT ;COMPARE EXP 
8503 ;0A ATA WITH DATA READ FROM 
e504 > RHCS2 
850S O24766 001401 BEO 693 :BRANCH IF GOOD 
8506 O24775 04105 ERROR 105 
8507 ; AFTER SETTING “CLR” B17 aS 
8508 :IN RHCSe TO INIT THE R 
8509 :IPCKe BIT #2 RHCS3 fas SET 
8510 i ZEROS WERE MOVED INTO 
B5i2 !RHDB WAS READ THEN 
8513 :RUCS2 SHOULD HAVE MDPE!OR!IR 
esis : TOGETHER WITH UNIT NUMBER 
6516 !BUT CONTAINED W 1S 
e517 :GIVEN IN BAD RHoSe 

85:8 024772 69S: 

BS20 024772 017737 157104 o0i20e QRHDB, STMP2 ;READ RHDB SECOND TIME 
e521 : Ss CHECK THAT RHCS1. HAS SCITRE!DVARDY 

Bbee 025000 012737 144200 001124 ov #SCc! ARE OVATRDY. $GDDAT ;GET GOOD = 144200 
8524 O25006 017737 15704 001126 Mov JRHCS1,$BDDAT ;READ RHCS1 FOR COMPARISON 
8525 Oe5Ci4 023737 001124 OOllzE CMP $GODAT, $BDDAT ;COMPARE EXPECTED 

Bess ;DATA W ITH DATA READ FROM 
8526 o25022 00:40) BEG 713 t RSRCH IF GOOD 
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Oesce4 104140 ERROR 140 
Ay + SETTING 17 THE BIT #5 


a 
RHOB WAS READ THEN 
: RHCS | en HAVE SC! TRE!DVA!IRO’ 


=14420 
:BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


»CHECK THAT RHCS2 HAS MOPE!IR 
ges0ee 737 hov @MOPE!IR.$GDDAT ;GET GOOD = 500 
025634 737 BIS UNIT, $GDDAT : INCLUDE UNIT NUMBER 
MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR. COMPARISON 
CMP $GDDAT.$BDDAT COMPARE EXPECT 
res WITH DaTAS READ FROM 
738 :BRANCH IF GOOD 
;OF TER SETTING woLR” BIT #s 
RHCS2 TO INIT THE RH 


HIP PCk Ke BIT #2 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 


) 
: RHDB WAS READ THEN 
;RHCS2 SHOULD HAVE MDPE!IR 


: TOGETHER WITH Unit NUMBEP 
:BUT CONTAINED W Is 
:;GIVEN IN BAD Ricee 


0es026 


EQ 
RR 


Oesodte 
>CHECK THAT RHCS3 HAS 4 
OeSObe Ole737 OOCOOY O01i24 hov #4, SGDDAT ;GET GOOD = 


02eS070 617737 157036 O01i26 MOV @JRHCS3, SBDDAT ; READ age ee COMPARISON 
025076 7 00iie4% 001126 CMP $GDDAT , SBDDAT ; COMPARE EXP 

:DAT Res WITH BATA READ FROM 
025104 753 : BRANCH IF GOOD 


G2eide if 104 
;AFTER SETTING “CLR™ BIT #5 


$ 2 
i ZEROS WERE MOVED INTO 


: RHDB WAS READ iy gm 
jRHCS3 SHOULD HAVE 4 


‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


O4030€ t PC, aeCLOISk ;GIVE RH INITIALIZE 





CERHARO. MACY 11. 30; 1946) 


OCD aD 
omom 


@ 
TOroroo oc 
OW ONT WM LW 


TUT b= e- = bb bs be 


8622 


02Si14 


OeSi+e 


Bée}e 


025176 
0esi7 


Cesec4 


0ie737 


BbS535 
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oc4e00 


1$6732 
O0Cile4 


BBEATE 


156706 
001124 


oocco00 
1St72e 


H13 


RHSCe MOPE BIT #8 AND RHCS3 IPCKe BIT se 


ETUP WNIT NUBER : a! 
EAR RHWC AND FUNCTION BITS IM FHCS1 


3 CHECK THAT RHCS1_ HAS RDY!DVA 


001124 Mov #RDY!DVA,SGDDAT ;GET GOOD = 4200 
001126 MOV @RHCS1, SBODAT ;READ RHCS1 FOR COMPARISON 
OC11le6 CMP $GDDAT; $BDDAT ; COMPARE XPEC 
‘eae ne. A WITH DATA READ FROM 
BES 773 :BRANCH IF GOOD 
ages “ ; AFT TT LR” BIT aS 
‘fh Ro Rcee 10 Tootnrt iss fne tc _1 


; ZEROS WERE *mOVED INTO 


Ra WAS READ THEN 
an RH CLEAR (RHCS2 BIT #5) 


EGAPHED TubagghOe 


1 SHOULD HAVE RDY!DVA 


HCS 
O 
‘ee Soon WHAT IS 
= !GIVEN IN BAD RHCS1 

ie CHECK THAT BHCS2 HAS IR 


Age carts SERB AT PAC SBE CUNT TOR NUMBER 


4 

4 

$ «sERK_«REBBAY- HEBERT ERARARUERR Ep gorrrn son 
re DATA READ FROM 

f+ : BRANCH IF GOOD 


;AFTER SETTING oot ay ¥ aS 
:IN RHCSe TO_INIT 


THE R 
ees Ebhe "Botts ing? OE" 
ae RH CLEAR (RHCS2 BIT 25) 
iA Rar vER pitt SFou a 


CLEAR ALL ERRORS 
; ane SHOULD HAVE IR 


: TOGETHER WITH UNIT NUMBER 
BUT ONT AIA BD WHAT IS 
GIVEN IN BAD RHCS2 


798: 
CHECK THAT RHCS3 HAS O 
001124 hov #0, SGDDAT :GET GOOD = 0 


001126 MOW JRHCS3, SBODAT ;READ RHCS3 FOR COMPARISON 


-~=—- m~. 


7 


ii 


0eSei2 


OeS2e0 
JeSeee 


025224 
OeSe2e4 
O2eS23e2 
BeS240 


DesSe46 
SeSest 


O2SeSe 
OeSese 
02eSe60 
OeSeb6 


025274 
0eSe76 
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023737 
00140 


GiNOs 
104130 


Cle737 
7737 


9 
023737 


012737 


017737 
023737 
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12:4 
001124 


occoo0 


1S66c6 
001ie4 


oo0oco 


1S6644 
001124 


T32 RHSCe MOPE BIT #8 AND RHCS3 IPCKe BIT se 


5 cmp AT,SBODRT ©; COMPARE EXPECTED 
oreser angcisel tne :DAT WITH DATA READ FROM 


RHCSS 
; BRANCH IF GOOD 


ig SETTING 7F on BIT aS 
; IN _RHCS IT 


il 
i ZEROS WERE MOVED INTO 


jut 5 WAS READ THEN 
H CLEAR cones Sub aS) 


GIVEN IN BAD RHCS3 


;CHECK THAT RHBA HAS O 
o01ie4 MOV #0, SGDDAT ;GET GOOD = 0 


001126 MOV @RHBA , SBDDAT ;READ RHBA FOR COMPARISON 
001126 CMP $GDDAt , $BDDAT ; COMPARE EXPECTED 

sRAre an WITH DATA READ FROM 
83% ;BRANCH IF GOOD 


BEQ 

ERROR lil 
4g + SETTING mw BIT #S 
; IN RHCS2 T THE RH 


; IPCKe & 
; ZEROS WERE MOVED INTO 


; RHOB WAS READ THEN 
H CLEAR (RH a= BIT #5) 


:CHECK THAT RHBAE HAS O 
001124 MOV #0, SGDDQT ;GET GOOD = 0 


001126 MOV MRHBAE , SBODAT ;READ RHBAE diy COMPARISON 
001126 CMP $GDDAT , $BDDAT Oe age EXPECT 
Seas WITH DATA READ FROM 
BEQ 85s BRANCH IF GOOD 


ERROR lle 
toad SETTING sot a ¥ 8S 


Re 
i ZEROS WERE “MOVED INTO 


HOB 
‘RHOB WAS READ THEN 
:AN RH CLEAR (RHCS2 BIT #5) 
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;WAS GIVEN uly SHOULD 
ERRORS 


;RHB O HAVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


GeS300 
sCHECK THAT _RHWC_HAS 0 
025300 7 soo0co 9 o0ile4 Mov #0, $GDDAT ;GET GOOD = 0 


025306 156550 001126 MOV @JRHWC , SBODAT ;READ RHWC FOR — 
0eS314 Pp 6©001i1e4% O0lle6 CMP $GDDAT, $BDDAT ; COMPARE EXPECT 
:DATA WITH DATA READ FROM 


;RHWC 

0eS32e BEG 873 ;BRANCH IF GOOD 

CeS3e4 f 113 
;AFTER SETTING “CLR” BIT 4S 
;IN RHCS2 TH 


ROS WERE MOVED INTO 


S_READ_THEN 
H “CLEAR (RHCSe BIT #5) 
:WAS “GIVEN us SHOULD 
:CLEAR ALL ERRORS 
; RHWC SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


TOPO PUTU Ne 
LW OWDO IMU wre O 


NNNNNNNSSNSIAINN 


DOWOOOOOOOOMOOMOMOMOD 


OeSset 87S: 


eee ee eee eee ete NOPE BIT €@ @O RCS? IPCKa BIT 2 
TEST 33 RHSC2 MDPE BIT #8 AND RHCS3 IPCK3 BIT #2 
CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 
cee Specs (RHCS3 BIT # 
MOVE ALL ZEROS INTO HOG 1 
THIS SHOULD NOT SET TRE SC i N RHCS1 
RHOB CNCE THIS SHOULD SET NOPE (RHCS2 BIT #8) 
HCS1 R T #7), TRE (BIT #14), 3¢ (BIT #15) 
E. HECK RHCS1, RHCS2; RHCS3 


ee eee ee ee 


(RHCS 
ALL ERRORS ARE CLEAR 
CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


= FERRER ERERESRAEKREKSEKEREHRKSKR KARE RAKARAASRHRAHARKRLASRHFLHR SRL ERP EA* 
025326 oo0004 46733: SCOPE 

025330 012706 001000 MOV aSTACK, SP ;RESET STACK 

025334 012737 O00032 oD4Ese MOV #32, a8tSTNM :SAVE TEST NUMBER 


OeS34e 004737 O40306 JSR PC, @J#CLDOISK ;GIVE RH pT Te, 1Ze 
fot RHWC AND F FUNCTION BITS IN RHCS1 
Ss 
025346 012737 OOGO03 oo4be2 MOV #3,IP ;IPCK BIT NO. FOR PRINTOUT : 


025354 052777 oO00010 156550 Bis aon’ @RHCS3 def IPCK3_IN RHCS3-BIT #3 
OeS3te 005037 904210 CLR ROM RITE ZERO INTO LOCATION 


; 
tf 
* 
* 
* 
* 
* 
* 
¥ 
* 
* 

°# 
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753 025366 013777 O04210 156506 MOV WRFEROM, JRHOB {WRITE ZEROS INTO RHOG ONCE 
a Os6374 O13777 OO4e10 166509 MOV WRFROM; JRHDB ‘WRITE ZERO SECOND TIME 
8756 -CHECK THAT RHCS1 HAS DVA!RDY 
8757 ges4o2 012737 oo04200 001124 Mov #DVAIRDY,SGDDAT ;GET GOOD = 4200 
8759 025410 017737 156444 001126 MOV JRHLS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
8760 025416 023737 901124 OOlliee CMP SGDDAT’SBDDAT :COMPARE EXP 
a7) :DA ro Set DATA READ FROM 
8763 OeS424 001401 BEQ 65 !BRANCH IF GOOD 
8764 Oes426 104140 ERROR 140 
8765S :AFTER SETTING “CLR” BIT #S 
8766 ;IN RHCS2 TO_INIT THE RH 
8767 !IPCK3 BIT #3 RHCS3 WAS SET 
8768 ; ZEROS WERE MOVED INTO Ri JB 
8770 ;RHCSI SHOULD HAVE DVA!RDY 
aa ‘BUT CONTAINED WHAT IS 
Q773 !GIVEN IN BAD RHCS1 
8774 025430 SS: 
6775 OeS¥30 017737 isB44e 001200 MOV JRHDB, $TMP 1 :READ RHDB ONCE 
8777 
8778 “CHECK THAT RHCS3 HAS 10 
6779 OeS¥36 012737 O00010 oo11e4 MOV #10, $GDDAT ;GET GOOD = 10 
8781 O25444 017737 156462 001126 MOV GRHCS3,$B0DAT ; READ RHCS3_ FOR COMPARISON 
8782 CesHS2 023737 001124 OOllSe CMP SGDDAT, SBDDAT ; COMPARE EXPECTED 
8783 :DATA WITH DATA READ FROM 
8784 ?RHCS3 
8785 oO25460 001401 BEO 673 ‘BRANCH IF GOOD 
8786 Oes4e2 104104 ERROR 104 
8787 ;QFTER SETTING "CLA" BIT #5 
8768 !IN RHCSe TO INIT THE R 
8789 !IPCK3 BIT #3 RHCS3 fas SET 
8730 i ZEROS WERE MOVED INTO 
9792 'RHDB WAS READ THEN 
8733 ;RHCSS SHOULD HAVE 10 
8795 !BUT CONTAINED WHAT IS 
8796 !GIVEN IN BAD RHCS3 
8797 OBSYeH 67S: 
8739 ;CHECK THAT RHCS2 HAS MOPE!OR!IR 
BB800 025464 012737 000700 901124 MOV WMOPE !OR! IR, SGODAT ;GET GOOD = 700 
e801 025472 083737 O0S010 O011e4 BIS UNIT. $CDDAT ; INCLUDE’ UNIT NUMBER 
8803 O25500 017737 156364 OD1126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
BE04 O25506 023737 OOlle4 OOll2e CMP SGDDAT’$BDDAT {COMPARE EXPECTED 
BB0s ;0A DATA WITH DATA READ FROM 
8807 OP5514 o01401 BEG 69 + BRGRCH IF GOOD 
B808 Oessic 104105 PeRor fae 





w 
Mm 
«> 
o 
e 
ao 
Oo 


Cc 
cE 


ERH 


025520 
0e5S20 
0eSSeéb 
025534 
0ess4#e 


oesss0 
OeSSSe 


0esss4 


Oesss4 
Oessb6e2 


02eS$70 
OeSsS7& 


025604 
02S606 
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017737 
012737 


012737 
053737 


017737 
023737 


001401 
104105 
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12:48 


ace 


156356 
i44200 


156320 
001124 


o00S00 
005010 


156274 
001124 


001202 
00i1e4 


001126 
001126 


0011e4 
001124 


001126 
001126 


13:06 PAGE 
133 


69$: 


71$: 


733: 


L193 
168 


RHSC2 MOPE BIT #8 AND RHCS3 IPCK3 BIT #3 


ay SETTING “CLR” BIT #5 
:IN RHCSe TO INIT THE RH 
:IPCK3 BIT #3 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 


at HDB WAS READ THEN 
i RHE 2 SHOULD HAVE MOPE!OR!IR 


: TOGETHER WITH UNIT NUMBER 


IBY VERCIN BOE HCeS | 


MOV JRHDB, STMP2 j READ RHOB SECOND TIME 
CHECK THAT RHCS1 HAS SC! TRE!DVA!IRDY 
hov aSc! TRE OVA! ROY, $GDDAT eet GOOD = 1442Cu 
MOV @RHCS1,$B0DAT  ;READ RHCS1 FOR COMPARISON 
CMP $GDDAT’ SBDDAT COMPARE EXPECTED 

:DaT A WITH DATA READ FROM 
BEQ 71$ RCS IF GOOD 
ERROR 140 


4 Ab SETTING TF SHE k af aS 
N RHCSe_ TO INI 

‘TPs BIT #3 RHCS3 as” SET 

igER S WERE MOVED INTO 


H 
;RHDB WAS READ THEN 
Sih HOULD HAVE SC! TRE! DVAIRDY 


1 
:BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


agye* "E "ano bret {Rosco are TR coop = = 500 


BIS oat. eScDbAT : INCLUDE UNIT NUMBER 
MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP $GDDAT, $BDDAT ; COMPARE EXPECTED 
DATS WITH DATA READ FROM 
733 BRANCH IF GOOD 


BEG 
ERROR 105 
TN Bi SETTING no heh  ¥ #S 


ZEROS Bit #3 RHCS3 tas "Set 
i ZERO RE MOVED INTO 


RHDB WAS READ THEN 
‘nee SHOULD HAVE MDPE!IR 


=50 
: TOGETHER WITH ee NUMBER 
:BUT CONTAINED IS 
:GIVEN IN BAD RHcSe 
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CERHAD.P11 21-DEC-77 12:48 133 RHSC2 MDPE BIT #8 AND RHCS3 IPCK3 BIT #3 
CHECK THAT RHCS3 HAS 10 
Bebe 025610 012737 o00010 co1124 hov #10, SGDDAT :GET GOOD = 10 
gece SERbIe GAzrey ASTHG SOLE «| SGHTSESEERT them, recgs cp, germane 
8876 ne Bara WITH BATA READ FROM 
1 

8872 025632 001401 BE 75 !BRANCH IF GOOD 
8873 025634 104104 ERROR 104 
8874 ; OF TER SETTING "CLA" BIT as 
8875S HCSe TO INIT THE RH 
8876 Bok T #3 RHCS3 WAS SET 
8877 imo” WERE MOVED INTO 
887 :RHD S READ THEN 
8880 ;RHCS3 M eR OULD HAVE 10 
8881 =10 
8882 BUT CONTAINED WHAT IS 
8883 :GIVEN IN BAD RHCS3 
ge84 025636 758: 
8886 025636 004737 040306 JSR PC, JUCLDISK :GIVE RH INITIALIZE 
8887 !SETUP UNIT NUBER 
eeeg !CLEAR RHWC AND FUNCTION BITS IN RHCSi 
8890 
8891 -CHECK THAT RHCS1 HAS RDY!DVA 
e892 O2S642 012737 004200 01124 MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 
ee a ee ee 
8896 {DATA FE A OR FA TREAD FROM 
8898 025664 001401 BEO 77 BRANCH IF GOOD 
8899 025666 104106 ERROR 106 861 - aa wnial 

ee os 8 
B30f N RHCES TO INIT OTHE RH 
8902 tT PCKS BIT #3 RHCS3 WAS SET 
8993 ! ZEROS WERE MOVED INTO 
8904 :RHOB 
8905 :RHDB WAS READ THEN 
8906 SAN RH CLEAR (RHCS2 BIT #5) 
8907 ‘WAS GIVEN THIS SHOULD 
8908 'CLEAR ALL ERRO 
8309 : RHC SHOULD HAVE RDY!DVA 
a ee ES eel * 
ae as 778: CHECK THAT RHCS2 HAS IR 

HECK THAT RHC 

8931S 025670 012737 o00100 001124 MOV #IR, SGDDAT ;GET GOOD = 100 
831 025676 053737 OOS010 o011e4 BIS UNIT: $GDDAT ‘INCLUDE UNIT NUMBER 
8918 025704 017737 156160 001126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
8919 O26712 023737 6001124 DOD11De CMP $GDDAT,S$BDDAT COMPARE EXPECTED 
8920 :DATA WITH DATA READ FROM 
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025720 
Oes7e2e 


025724 
0eS724 
02$732 
0eS740 


025746 
0eS750 


025752 
025752 
025760 
025766 


025774 
025776 
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001401 
104107 


012737 ooo000 


017737 156174 
023737 001124 


012737 ooooco 


017737 156100 
023737 061124 
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133 


;RHCSe 

;BRANCH IF GOOD 

;AFTER SETTING “CLR” BIT #5 
:IN RHCSe TO INIT THE RH 


5 SEEKS BIT #3 RHCS3 WAS SET 
;ZEROS WERE MOVED INTO 


ae WAS READ THEN 

H_ CLEAR (RHCS2 BIT #5) 
‘fas wy VEN THIS SHOULD 
;CLEAR ALL ERR 

i RHCSe SHOULD HAVE IR 


TOGETHER WITH Unit NUMBER 
iBUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS2 


BEQ 798 
ERROR 107 


;CHECK THAT RHCS3 HAS O 


001124 MOV #0, SGDDAT ;GET GOOD = O 
001126 MOV QRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
001126 CMP $GDDAT;$BDDAT ;COMPARE EXPECTED 
are WITH DATA READ FROM 
BEQ 81S :BRANCH IF GOOD 
ERROR 110 


+4 R SETTING “CLR” of aS 

HCSe TO INIT THE R 
TP cK BIT #3 RHCS3 WAS SET 
:ZEROS WERE MOVED INTO 
he WAS READ THEN 

H_ CLEAR (RHCS2 BIT #S) 

fas ROIVEN THIS SHOULD 
;CLEAR ALL ERRORS 
:RHCS3 SHOULD HAVE _O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


81$: 

-CHECK THAT RHBA HAS O 4 
001124 MOV #0, SGDDQT ;GET GOOD = 0 
001126 MOV JRHBA, SBDDAT ;READ RHBA FOR COMPARISON 
001126 CMP $GDDAT, SBDDAT ; COMPARE EXP 

DAT ATA WITH DATA READ FROM 
BEG + 83% ? BRANCH IF GOOD 
ERROR 111 


;AFTER SETTING “CLR” BIT #S 
3 IN RHCSe TO INIT THE RH 

;I1PCK3 BIT #3 RHCS3 uns SET 
i ZEROS WERE MOVED INTO 


: RYDE WAS READ THEN 
:AN RH CLEAR (RHCS2 BIT #5) 


0163 
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9011 


026000 
026000 


026006 
0eb014 


026022 
0260e4 


O260e& 
026026 
026034 
0e604e 


026050 
O260Se 


Ceb0s4 


012737 


012737 
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900000 


156116 
001124 


ooooc0 


1S6622 
001124 


B14 


RHSCe MOPE BIT #8 AND RHCS3 IPCK3 BIT #3 
;WAS GIVEN THIS SHOULD 
; — ORS 


HB D_ HAVE 0 
: BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 


e233: 
“CHECK THAT RHBAE HAS 0 
001124 Mov #0, SGDDAT ;GET GOOD = 0 


001126 MOV @RHBAE , SBDDAT READ RHBAE FOR COMPARISON 
O00il26 CMP $GDDAT , SBDDAT COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


; RHBRE 
6s$ ;BRANCH IF GOOD 


BEG 

ERROR lle 
;AFTER SETTING 77 oH gh 45 
:IN RHCSe TO INIT THE R 
;IPCK3 BIT #3 RHCS3 yas "Set 
; ZEROS WERE MOVED INTO 


: RHDB et READ THEN 

:AN RH CLEAR (RHCSe BIT #5) 
:WAS GIVEN THIS SHOULD 
:CLEAR ALL ore: 

;RHBRE SHOULD HAVE 0 

;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBAE 


ess: 
-CHECK THAT RHWC HAS O 
001124 MOV #0, SGDDAT ;GET GOOD = 0 


001126 MOV DRHWC , SBDDAT ;READ PHWC FOR COMPARISON 
001126 CMP $GDDAT, SBDDAT ; COMPARE EXPECTED 
;DAT A WITH DATA READ FROM 


HW 
87% : BRANCH IF GOOD 


BEG 

ERROR 113 
;AFTER SETTING 7F a 8S 
:IN RHCS2 TO INIT THE R 
;IPCK3 BIT #3 RHCS3 WAS "Ser 
3 ZEROS WERE MOVED INTO 


; RHOB WAS READ THEN 
7A H CLEAR (RH ge 4 eit aS) 


D HAVE O 
But CONTAINED WHAT IS 
;GIVEN IN BAD RHWC 


5 RP REREE EEE AEE AREER E SERRE EE ERLE AE REESE EERE E ESLER RS ER AFAR AEE EERE EE 
LETEST 34 RHCS2-WCE BIT #14 AND RHCS3-WCE OW SIT #le 
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li 


026054 
026056 
026062 


026070 


026136 


C26144 
026150 


026152 
026160 
026166 
026174 


Oebe0e 
026204 
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ooo004 
Ole706 
012737 
004737 


012737 
012777 
012777 


004077 
004154 


005037 
012777 
012777 


004077 
604150 


012737 
063737 


017737 
023737 
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001000 
000034 


040306 


177777 
177767 
004210 


156516 


00300e 
177767 
003002 


156470 


040300 
005010 


1SS67E 
001124 


OO46S6 


155724 
155720 


001124 
001124 


001126 
00ile6 
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T34 


C14 


RHCSe@-WCE BIT #14 AND RHCS3-WCE OW BIT #12 SES Oi7i 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT aS 
WRITE NINE WORD OF ALL NINES ON TO THE DEVICE 

SET UP TO DO WR Te CHECK ON THAT WORD FROM AN 

00D aHORD 8 

DO A ONE WORD WAL TE CHECK WITH RHBA FROM AN 


THIS LO SET lice re (RHCS3 BIT #12) 
AND I 


CREEK eR KR Re ee 


RR ARE CL 
CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


TT naga * +2 papain agi tei tiamamucaanaasisiacs aii get ~~ sake 
T34: SCOPE 


MOV aSTACK, SP ;RESET STACK 

MOV #34, a8tSTNM :SAVE TEST NUMBER 

ISR PC, JeCLOISK ;GIVE RH INT? TAL IZE 
:SETUP UNi 


T NUBER 
;CLEAR RHWC AND FUNCTION BITS IN RHCSi 
;WRITE ONE WORD OF ALL one a ON THE DEVICE 


MOV a1, WRF ROM ONES INTO WRITE FROM 
MOV art! INTE RO FOR W RD COUNT REGISTER 
MOV suReA i, SRHEA WR E Rom FFER INTO BUS ADDRESS 
JSR RO, ICOMND ;GO TO DO COMMAND 
WRIDAT :WRITE DATA 
-SET UP FOR WRITE CHECK 
tLe BUF OW ;WRITE DATA FOR WRITE CHECK ERROR 
MOV 8-9. , JRHWC ;NINE WORD FOR WORD. COUNT REGISTER 
MOV s@UF OW, JRHBA jWRI TE FROM BUFFER INTO BUS ADDRESS 
FROM 900 WORD BOUNDRY 
-WRITE CHECK ON ODD WORD’ BOUNDAR 
JSR RO, JCOMND ;G0_ TO BO COMMAND 
WRCHEK :WRITE CHECK DATA 
CHECK THAT RHCS2 HAS WCEFOR! IR 
hov gWCE! OR! IR, $GODAT GET GOOD = 40300 
BIS UNIT, $GDDAT ; INCLUDE’ UNIT NUMBER 
MOV JRHCS2, SBDDAT s READ RHCS2 FOR COMPARISON 
CMP $GDDAT’ $BDDAT ; COMPARE EXPEC 
30 " TH BATA READ FROM 
BEQ 653 :BRANCH IF GOOD 
ERRCR il 


4 Ag nos TANG ott of aS 


; ORD 
;WRITTEN ON THE DEVICE 


D14 
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3089 A WRITE CHECK WAS DONE 
3090 iN AN ODD WORD BOUNDARY THEN 
3091 SHOULD HAVE HCE!OR! IP 
3095 aoe WITH UNIT NUMBER 
3094 !BUT CONTAINED WHAT IS 
3095 GIVEN IN BAD RHCS2 
3036 026206 65S: 
3098 ;CHECK THAT RHCS3 HAS DBL!WCEOW 
9033 026206 012737 012000 D124 hov #DBL! WCEOW, SGDDAT ;GET GOOD = 12000 
gals SUTTHT ASETAE BLS «BRSGEESBDORT. stun sucggtoe comanssn 
> q . 
sa pn: DATA ATR WITH DATA READ FROM 
026230 901491 BEQ 675 !BRANCH IF GOOD 
O26232 104115 ERROR 115 


;AFTER SETTING “CLR” BIT #5 
i IN N_RHCSe TO ray THE RH 


:RHCS3 SHOULD HAVE DSL!WCEOW 


=12000 
i BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


02be34 67$: 
026234 004737 O40306 JSR PC, aaCLDISk ;GIVE RH cit Fe 
;SETUP UNIT NUB 
;CLEAR RHWC AND FUNCTION BITS IN RHCS! 
;CHECK THAT RHCS1 HAS pov ipye 
026240 012737 OO4¥200 001124 Mov #RDY!DVA,SGDDAT ;GET GOOD = 4200 
O26e46 017737 iS5606 001126 MOV @RHCS1, $BDDAT ;READ RHCS1 FOR COMPARISON 
O26eS4 023737 O0i1e4% O01126 CMP $GDDAT; SBDDAT ; COMPARE EXPECTED 
OR ' WITH DATA READ FROM 
O2tebe 001401 BEG 69% :BRANCH IF GOOD 
Ceteb4 i04116 ERROR 116 


;AFTER SETTING “CLR” BIT #S 
sn RH 13: y wd THE RH 


Wilvarververververvolvereerrervervelvirvirirvervimvervelvervirververvirvervirververvilvilvamrelvervelvelvervilvilvervelvelverrelys| 
+ bs hs bs be b+ be ho ee be be ee be he bo 8 be be be he be Bn Be Be Be be ee be eo ee ee be 
££ ££ SWWWWWWWW WW PUfufuru lo ulufulur: ee eee OOO OO0000 
SWE OWONO MLW OWONOUL WM OWDONOU ES WN OWONTWM LWtE 


S 
:RHCS1 SHOULD HAVE RDY!DVA 


CERHADO MACY11 ous 1e"8, 21-DEC-77 13:06 PAGE 
AD.Fil T34 


CERH 


9145 
+ J 


-OwWOD-. 


Varververvilecivelvirverververvelverververvirvervalververvelvelvervirververververeclvervirvelvelvelvervelververvelvervelverververvelvelvervelvelververvelvileery |] 
TU ee ee ee ee se es be se en ee eb a be se Be be 8 be eb ee = ee 
C Neo ee oe ooo Be a eee Naoto gue Co IP CU Oo or roe os + + 


OWONOUE WM OWO NOU. WO WO NOU ES WM OW DONG UL WMO OONO ULE 


Cebeb6 
Jeb2b6 
Oeb274 
026302 
026310 


026316 
Ceb320 


026322 
026322 
926330 
026336 


026344 
026346 


026350 
026350 


026356 
026364 
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Q1e737 900100 O011e4 
0S$3727 005010 001124 
Oi7737 15556e O01ieb 
Oe3737 OO0lleY OOlieb 
001401 
104117 


012737 o00000 001124 


017737 iSSS76 001126 
023737 OO0ileY OO011e6 


012737 900000 001124 


017737 15550e 001126 
023737 O011e4% OO1ieb 


693: 


71S: 


738: 


Te: 


E14 


RHCS2@-WCE BIT #14 AND RHCS3-WCE OW BIT ale 


BIS 


;CHECK THAT RHCS3 HAS 0 
#0, S$GODAT 


MOV 


MOV 
CMP 


BEG 
ERROR 


;CHECK THAT RHBA_HAS 0 


MOV 


MOV 
CMP 


ia THAT RHCS2 HAS IR 
#IR,SGODAT 


ONTt. $GDDAT 


AJRHCS2 , SBDDAT 
$GDDAT , SBDDAT 


@JRHCS3, SBODAT 
$GDDAT , SBDDAT 


733 
120 


#0, S$GDDAT 


JRHEA, SBDDAT 
$GDDAT, SBDDAT 


;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS1 


;GET GOOD = 100 

; INCLUDE UNIT NUMBER 

; READ ae as COMPARISON 
:COMPARE EXP 

‘pares WITH DATA READ FROM 
:BRANCH IF GOOD 


;AFTER SETTING s¥ "hy BIT aS 
:IN_RHCSe TO INIT THE RH 


; LE 

aay SHOULD HAVE IR 
TOGETHER WITH unit NUMBER 
:BUT CONTAINED W Is 

: GIVEN IN BAD Riese 

;GET GOOD = 0 

;READ RHCS3 FOR COMPARISON 
; COMPARE EXPECTED 

DATA WITH DATA READ FROM 
;RHCS3 

:BRANCH IF GOOD 

4+ SETTING “CLR” BIT s#S 
:IN RHCS2 


:A WRITE AS 

!O0N AN ODD WORD BOUNDARY THEN 
SAN RH CLEAR (RHCS 

:CLEAR ALL 


: GIVEN IN BAD RHCS3 


;GET GOOD = 0 


;READ RHBA FOR COMPARISON 
:COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


F1i4 
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$201 ; RHBA 
gees OBES RI21 Bion 13 te 

37 4 18) 

9204 ;AFTER SETTING “LR” BIT aS 
320s !IN RHCS2 TO INIT THE RH 
920 :ONE WORD OF ALL ONES IS 
3207 :WRITTEN ON THE DEVICE 
320 +e WA CHECK WAS DONE 
3503 AN O00 WORD BOUNDARY THEN 
9210 BN RH CLEAR (RHCS2 BIT #5) 
S211 WAS GIVEN THIS SHOULD 
32ie CLEAR A L ERR ORS 
$213 :RHBA SHOU ULO HAVE O 
9214 : BUT CONTAINED WHAT IS 
9215 :GIVEN IN BAD RHBA 
9216 026376 758: 
9217 -CHECK THAT RHBAE HAS O 
3618 026376 012737 o00000 001124 MOV #0, $GDDAT ;GET GOOD = 0 
9220 026404 017737 155520 oolice MOV @DRHBAE,SBODDAT  ;READ RHBAE FOR COMPARISON 
Seel Oeb4le 023737 601124 O0li26 CMP $GDDAT;$BDDAT  :COMPARE EXPECTED 
gece 3 DTA With DATA READ FROM 
92204 O26420 001401 BEG 77% :BRANCH IF GOOD 
9225 OebY4¥e2e id4l22 ERROR iee 
9226 ;AFTER SETTING “CLR” BIT #5 
3227 :IN RHCSe TO INIT THE RH 
3226 ;ONE WORD OF ALL ONES IS 
9229 :WRITTEN ON THE DEVI 
9230 ;A WRITE CHECK WAS DONE 
S= 3] ;O0N AN ODD WORD eta sed THEN 
3232 AN RH CLEAR (RHCS2 BIT 8S) 
9233 :WAS GIVEN THIS cPSuCD 
9234 CLEAR ALL ERRORS 
9235 :RHBAE SHOULD HAVE O 
3236 :BUT CONTAINED WHAT IS 
3e37 ,GIVEN IN BAD RHBAE 
9238 o026424 77$: 
$239 CHECK THAT RHiWL be 
3630 026424 012737 o00000 oo1124 hoy 80, $4004! ,GET GOOD = O 
S242 026432 017737 155424 oO1126 MOV ORHini a | -READ RHWC FOR COMPARISON 
9243 O26440 023737 O011i2e4 OOllce CMP $c00a? , $BO 0d" , COMPARE EXPECTED 
eSue ‘DATA WITH DATA READ FROM 
Se46 O26446 OC14O! BEG 4% ‘BRANCH IF GOOD 
9247 OPE4¥SO 154123 ERROR i243 
SEne ;AFTER SETTING “CLR” BIT #5 
9249 IN RHCS@ TO INIT THE RH 
3250 :;ONE WORD OF ALL ONES IS 
$251 :WRITTEN ON THE DEVICE 
3e5z2 :@ WRITE CHECK Wi 
9252 ;ON AN ODD WORD BOUNDARY THEN 
9254 :AN RH CLEAR (RHCS2 BIT 8S) 
3265 :WAS GIVEN THIS SHOUL 
9256 ;CLEAR ALL ERRORS 
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;RHWC SHOULD HAVE 9 

:BUT CONTAINED WHAT IS 

:GIVEN IN BAO RHWC 
0264Se 798: 


SESE RREE SE HERE REEE EE EEE EEE ELAR ERE L ESSER EERE ER ER EE EERE SEES OTH S* 
TeTEST 3s RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT #le 


CLEAR THE SUBSYSTEM GY A CONTROLLER CLEAR (RHCSe SIT ac. 
A Nine WORD OF ALL NINES ON TO THE DEVICE 
SET UP _TO DO oy Ug CHECK ON THAT WORD FROM AN 
se WORD BOUNDAR 
DO A ONE WORD WA Te CHECK WITH RHBA FROM AN 
ODD WORD BOUNDARY 
THIS wa SET Wee OW (RHCS2 BIT #12) 
A RHCSe BIT #14) 

( Nes 2 ! aS) IS GIVEN 
ALL ERRORS ARE CLEAR 
CHECK RHCS1, RHCS2. RHCS3, RHBA, RHBAE, RHWC 


“ce 


ee 


= HESSESERERKEAREREREAREEASKAHSESREEREAASSRESSRSRAAHSSRFSSHEH HAASE HS 
o264S2 o00004 +6135: SCOPE 
O02e6454 012706 001000 MOV wSTACK, SP sRESET STACK 
026460 O1e737 O00035 o04ESe MOV 83S, a8TSTNM :SAVE TEST NUMBER 


026466 004737 040306 JSR PC, ad#CLDISK iGIVE RE TT NBER 
:;CLEAR RHWC AND FUNCTION BITS IN RHCS 


; WRITE ws. WOR F ALL ONES ON THE D 

12737 177777 004210 Mov , URER Ron NACL ONES ITO RITE FROM 

le777 9177767 = 155354 MOV WC NINE WORD FOR WORD COUNT REGISTER 
1e777 =004e21iC 155350 MOV 6-9: aR @RHBA :WRITE FROM BUFFER INTO BUS AOORESS 


04077 156120 JSR RO, JCOMND ;GO_TO DO COMMAND 


026472 
Oe6S06 


0 
0 
026506 0 
0 


026514 
O26Se0 004154 WRIDAT ;WRITE DATA 


: FOR WRITE CHECK 
O26See 905037 OOgpoS LR “— ;WRITE DATA _ FOR WRITE ae ERROR 


ebece Bi 7272) 177767 1pEasé #-3. , JRHWC :N W FOR_WORD COUNT REGISTER 


Fe saurou JRHBA : INTO bus ADDRESS 


WRITE ee ON ODD WORD * BOUNDRRY oS 
O26S42e 004077 156072 bsr RO, JCOMND ;G0 TO DO COMMAND 
OeeS46 004150 WRCHEK ;WRITE CHECK DATA 


le777 00300e 1 


CHECK —_ RHCS2_ HAS WCE!OR!IR 
OebSSO 012737 O40300 001124 hov WCE!OR!IR $GDDAT ;GET GOOD = 40300 
Oe6SSE 053737 005010 001124 BIS UNIT, $GDDAt ; INCLUDE UNIT NUMBER 


Ce6Sé4 017737 155300 o0112& MOV JRHCS2, SBDDAT ;READ RHCS2 FOR COMPARISON 








H14 
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> 737 24 00112 ome GDDAT,$BDOAT  ;COMPARE EXPECTED 
9313 OeeS72 923737 OLE 126 $GDDAT, $B : COMP RE EXPECTED cron 
3316 9 g 653 ‘BRANCH IF GOOD 
“oO: f . 
g3i8 Sspese Pedros FEZon PF 8 
$318 :AFTER SETTING “CLR” BIT 8 
9313 :IN-RHCSS TO INIT THE RH 
9326 : ONE eg AN ones IS 
9321 MATTER on THE ‘DEV 
Wi 
3355 +B HBA BOS fiSKo Bs, Pore. THEN 
9324 ;RHCS2 SHOULD HAVE WCE!OR!IR 
3356 i Fee PER WITH UNIT NUMBER 
935° !BUT CONTAINED WHAT IS 
9328 ‘GIVEN IN BAD Ruce2 
9329 26604 6S: 
9331 :CHECK THAT RHCS3 HAS DBL! WCEOW 
$332 026604 012737 012000 01124 MOV #OBL ! WCEOW, SGDDAT :GET GOOD = 12000 
9334 26612 017737 155314 OO01126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
$335 026620 023737 001124 OOlice CMP $GDOAT, SBDDAT ; COMPARE EXPECTED 
9336 :DATA_WITH DATA READ FROM 
$337 nee 
9338 O26626 001401 BEG 67% ‘BRANCH IF GOOD 
9339 OSeb630 104115 ERROR 115 
9346 :AFTER SETTING “CLR” BIT aS 
934i :IN RHCS2 10 INIT THE RH 
9342 WORD OF ALL oie IS 
9345 AE MOON TH 
9344 A WRITE CHECK WAS DONE 
$345 ON AN ODD WORD BOUNDARY THEN 
9346 iRHCS3 SHOULD HAVE DBL! WCEOWW 
$347 12009 
9348 ‘BUT CONTAINED WHAT IS 
9345 :GIVEN IN BAD RHCS3 
9350 026632 67S: 
$351 
9352 
9353 026632 004737 o40306 ISR PC, JNCLDISK :GIVE RH INITIALIZE 
9354 :SETUP UNIT NUBER 
eye : CLEAR RNLIC AND FUNCTION BITS IN RRCS: 
9357 
“CHECK THAT RHCS1_HAS RDY!DVA 
38 026636 012727 o04200 901124 hoy #RDY!DVA,$GDBAT ;GET GOOD = 4200 
$361 O26644 017737 1552:0 001126 MOV QRHCS1,$BDDAT  ;READ RHCS1_ FOR COMPARISON 
g36e Cebes2 623737 001124 OOlise CMP genset: SBbbar COMPARE Pipe CT ES 
936 Bat mace A WITH DATA READ FROM 
00149) g & 'B RANCH IF GOO 
pabeo 901404 Pn,  §98 by IF coop 


;AFTER SETTING “CLR” BIT ws 
3IN RHCS2 TO INIT THE FH 








I14 
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9363 ;ONE_ WORD OF ALL ONES Is 
39376 sWRIT TEN ON THE DEVICE 
9371 A WRITE CHECK WAS DONE 
3937 ON AN ODD WORD BOUNDARY THE! 
937 :AN RH CLEAR (RHCSe BIT #5) 
9374 :WAS GIVEN THIS SHOULD 
9375 :CLEAR ALL ERRORS 
3328 sRHCSI SHOULD HAVE RDY!DVA 
9378 :BUT CONTAINED WHAT IS 
337 :GIVEN IN BAD RHCS1 
9380 O26664 69S: 
9381 CHECK THAT RHCS2 HAS IR 
$382 Oeb664 O12737 o00100 o01124 MoV #IR,$GDDA ;GET GOOD = 100 
3383 C26672 053737 oOCSOIG OO011e4 BIS ONT. $GDDAT ; INCLUDE UNIT NUMBER 
9385S 026700 317737 155164 9001126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
9386 O2e6706 023737 361124 OClicée CMP $GDDAT , SBODAT i COMPARE EXPECTED 
39387 :DATA WITH DATA READ FROM 
9388 :RHCS2 
9383 oO26714 cO14Ol BEG 71% :BRANCH IF GOOD 
9390 O26716 104117 ERROR 117 
3391 ;AFTER SETTING “CLR” BIT #5 
3332 :IN RHCS2 TO INIT THE RH 
9333 :ONE WORD OF ALL ONES IS 
9394 ‘WRITTEN ON THE wREVE E 
3395 ;A WRITE C 
3336 :ON AN ODD FORD "BOUNGARY THEN 
939” :AN RH CLEAR (RHCS2 BIT 2S) 
92398 ;WAS GIVEN THIS SHOULD 
9333 ;CLEAR ALL 
9490 ;RHCS2 SHOULD HAVE IR 
9401 100 
9402 : TOGETHER WITH UNIT NUMBER 
3403 :BUT CONTAINED WHAT IS 
3404 :GIVEN IN BAD Riicee 
94905 026720 718: 
9456 3 CHECK THAT RHCS3 HAS O 
a 026720 912737 o00000 001124 Ov #0, $GODAT :GET GOOD = 0 
9403 026726 017737 155200 001126 MOV DRHCS3,$B80DAT  ;READ RHCS3 FOR COMPARISON 
9410 026734 023737 OCCiie4 Sdi126 CMP $GODAT'$BDDAT :COMPARE EXPECTED 
rade iDA myo Mate DATA READ FROM 
9413 G26742 901401 BEG 73% + BRGRCH IF GOOD 
9414 O26744 104120 ERROR 120 
3415 ;AFTER SETTING “CLR” BIT #5 
S41E ;IN_RHCSe TO INIT THE RH 
3437 ;ONE WORD OF ALL ONES IS 
34.8 ;WRITTEN ON THE DEVICE 
9419 3A WRITE CHECK WA 
9429 N AN OOD WORD BOUNDARY »iten 
9421 ‘AN RH CLEAR (RHCS 
34ce !:WAS GIVEN THIS 
S423 CLEAR ALL ERRORS 


9424 :RHES2 SHOULD HAVE O 
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3425 ;BUT CONTAINED WHAT IS 
9426 !:GIVEN IN BAD PHCS3 
S427 Geb74E 738: 
9428 CHECK THAT RHBA HAS 0 
aue8 326746 012737 GD0G00 Oo11e4 hay #0, SGDDAT ;GET GOOD = 0 
saz SEES SAEEH sgTIS BBL. Che -BEBBRSSEEBBEr 1 F5nBaRtE. BPR ERTPARISON 
4 ? 737 1124 Li 
9433 :DAT A WITH BATA READ FROM 
3434 HBA 
9435 Oe6779 O01401 BEG 75$ : BRANCH IF GOOD 
9436 Oeb772 104121 ERROR lel tr 
9437 ;AFTER SETTING “CLR” BIT #5 
9438 :IN RHCSe TO INIT THE RH 
9433 ;ONE WORD OF ALL ONES IS 
9446 :;WRITTEN ON THE DEVICE 
9441 ;A WRITE CHECK W 
Qu4e ;0N AN ODD WORD BOUNDARY THEN 
9443 ;AN RH CL (RHCS 
dees ;WAS GIVEN THIS SHOUL 
S445 : CLEAR ALL 
S446 ;RHBA SHOULD HAVE O 
9447 !BUT CONTAINED WHAT IS 
3448 :GIVEN IN BAD RHBA 
9449 026774 75S: 
39450 -CHECK THAT RHBAE HAS 0 
rad G26774 012737 og0000 9001124 MOV #0, $GDDAT ;GET GOOD = O 
94S3 O27002 O17737 155122 001126 MOV JRHBAE,SBODAT ;READ RHBAE FOR COMPARISON 
9454 027010 9523737 301124 OOlle6 CMP $GDDAT;$BDDAT  ;COMPARE EXPECTED 
cots :DATA WITH DATA READ FROM 
3456 } RHBAE 
9457 027016 001491 BEQ 773 :BRANCH IF GOOD 
9458 027020 104122 ERROR lee 
Sele ;AFTER SETTING “CLR” BIT #S 
3460 ;IN_RHCSe TO INIT THE RH 
S461 ;ONE WORD OF ALL ONES IS 
9462 ;WRITTEN ON THE DEVI 
3463 ;A WRITE CHECK 
9464 ;O0N AN ODD WORD BOUNDARY THEN 
S465 ;AN_RH_ CLEAR (RHCS 
ars ;WAS GIVEN THIS L 
9467 ;CLEAR ALL 
S4ee ;RHBAE SHOULD HAVE 0 
9463 :BUT CONTAINED WHAT IS 
94706 :GIVEN IN BAD RHBAE 
wae 7 CK THAT R as oO 

;CHECK THAT RHWC H 

ai23 027022 612737 op0000 001124 Mov #0, SGDDAT ;GET GOOD = 0 
9475 027030 017737 155026 o01126 MOV ORHWC , SBDDAT ;READ RHWC FOR COMPARISON 
9476 027036 023737 OOll2e4 oO01126 CMF $GODAt, S$BDDAT i COMPARE EXPECTED 
+ thd 0A M. WITH DATA READ FROM 
9473 927044 001401 BEG 79% !BRANCH IF GOOD 
S480 027046 104123 ERROR 123 


CERHADO AS hia eis. 


CERHAD . P 


027050 


027050 
0270S2 
027056 


027064 


027070 
027076 
027104 


0271ie 
027116 


027120 
27124 
027132 


oO 


027140 
027244 


21-dEC- 


ooo0o4 
012706 
012737 


004737 


005037 
012777 
012777 


004077 
004150 


2i-DEC-77 
12:48 


001000 
000036 


640306 


177777 
177767 
004210 


1s5Se22 


003000 
177767 
003000 


1SS474 


OO46SE 


004210 
154756 
1S47Se 


154730 
154724 


79S: 


K14 
RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT wie 
[AFTER SETTING “CLR” BIT #5 
PIN RHCSe 


13:06 PAGE 180 
T35 


HAVE 0 
iBUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


+ EHS KKERASE SEARS RAL E RARER SAA ELSE REL FLELE RELA SFE FRE SFLAAHLFRLSES 


ORC oe ete ere 


ee ee ee re re re 


TEST 


36 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 


CLEAR THE a hd a a a CONTROLLER CLEAR (RHCSe BIT 85) 
WRITE ot WORD OF ALL NINES ON TO THE DEVICE 

SET UP TO DO WRITE CHECK ON THAT WORD FROM AN 

EVEN MTORD BOUNDARY 

DO_A ONE WORD a CHECK WITH RHBA FROM AN 


EVEN WO 
THIS xO SET Wce ott (RHCS3 BIT #11) 
AND WCE (RHCSe BIT 
“CLR"™ (RHCS2 att 5) Ig GIVEN 
ALL ERRORS ARE C 
CHECK RHCS1, RHESE RHCS3,:RHBA, RHBAE, RHWC 


“hel 2° italia meme ania italia Bite = se ica 


+673 


SCOPE 
MOV aSTACK,SP ;RESET STACK 
MOV #36, a8 TSTNM :SAVE TEST NUMBER 
JSR PC, J8CLDISK ;GIVE RH INITIALIZE 

:SETUP UNIT NUBER 

:CLEAR RHWC AND FUNCTION BITS IN RHCS1 
: WRITE ONE WORD OF ALL CONES ON THE DEVICE 
MOV “1, WRFROM ;ALL ONES INTO WRITE FROM 
MOV JRHWC !NINE WORD FOR WORD COUNT REGISTER 
MOV 6-9: ,SRHAC ?WRITE FROM BUFFER INTO BUS ADDRESS 
ISR RO, JCOMND ;GO TO DO COMMAND 
WRIDAT :WRITE DATA 
-SET UP FOn WRITE CHECK 
ecR BUFEW sMRITE DATA FOR WRITE CHECK ERROR 
MOV 8-9. , JRHWC NINE WORD FOR WORD COUNT REGISTER 
MOV sBUFEW, JRHBA ;WRITE FROM BUFFER INTO BUS ADDRESS 


ROM EVEN WORD BOUNDRY 
“WRITE CHECK ON EVEN word” BOUNDA 
JSR RO, JCOMND :GO TO BO. COMMAND 
WROHEK ?WRITE CHECK DATA 


--—- m~-. 


CERHADO MACY11 rent Se 
CERHAD.Pil 


027252 
027202 
027210 
027216 


Oe7e24 
Oe7eeb 


027230 


027230 


027234 


21-DEC 


004737 


012737 


2i-DEC-77 13: 06 PAGE 181i 
12:48 T36 


006cc0 001i24 


iS4716 O011es 
001124 001126 


040306 


004200 001124 


6S$: 


67$: 


L14 


RHCS2@-WCE BIT #14 AND RHCS3-WCE EW BIT #11 


; CHECK go RHCSe HAS WCE!OR!IR 


MOV WCE! OR! IR, SGODAT :GET GOOD = 40300 
Sts ONT 36 poat ; INCLUDE’ UNIT NUMBER 
MOV ORHCS2,$BDDAT  ;READ RHCS2 FOR. COMPARISON 
CMP $GDDAT/$BDDAT :COMPARE EXPECTE 

;0A DATA WITH DATA READ FROM 
BEQ 6S$ + RANCH IF GOOD 
ERROR 114 


; AFTER SETTING oY" BIT aS 


ae “EY HOR, BOURDER, THEN 
WITH mat oat 


TOG ETHER 
BU CONTAINED W 
;GIVEN IN BAD Ricee 


CHECK THAT RHC 3 HAS DBL! WCEEW 


hov “DBL! WCEEW, SGDDA ;GET GOOD = 6000 
MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GDDAT. $BDDAT ; COMPARE EXPE pect _ anne 
*RHCS3 
BEG 67$ BRANCH IF GOOD 
;AFTER SETTING “CLR” BIT #5 
IN RHCSe TO INIT THE RH 
ON WO D OF ALL vie IS 
WR TTEN ON THE DEV CE 


2 tS wee WAS D 
a8 VEN WOR BOUNDARY THEN 
Hess HOULD HAVE DBL!WCEEW 


‘aur OC ONTAINED WHAT IS 
;GIVEN IN BAD RHCS3 


JSR PC, adsCLOISK ;GIVE RH INITIALIZE 
:SETUP UNIT NUBER 
:;CLEAR RHWC AND FUNCTION BITS IN RHCS1 


;CHECK THAT RHCS1 HAS RDY!DVA 
MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 


M14 


CERHADO MACY11 30:104€) 21-DEC-77 13:06 PAGE 182 


CERHAD.F1i 21-DEC-77 12:48 T36 RHCS2@-WCE BIT #14 AND RHCS3-WCE EW BIT #il 

9893 
4 7e4e 7737 46le 001126 MOV @RHCS1, SBODAT ;READ RHCS1 eee COMPARISON 

gege §5>5e6 33535 AB iT35 OO0lieb CMP $GODAT , SBDDAT ;COMPARE EXPECT 

aes {DATA WITH DATA READ FROM 
3 

3238 Oe72S& 001401 : BEG 69$ ;BRANCH IF GOOD 

9599 Oe7260 i04116 ERROR 116 


abot HW Rlic8'18"fur iweran 
3eb3 ry OH TLE BEV Be 


9606 iON RH EAR (RHCSe BIT #5) 
9607 ;WAS GIVEN THIS SH 
3608 3CL ALL ERRORS 
9603 ;RHCS1 SHOULD HAVE RDY!DVA 
9610 4200 
9611 'BUT CONTAINED WHAT IS 
Sie :GIVEN IN BAD RHCS1 
9613 O272b2 69S: 
Seis 027 912737 900100 001124 hove “Ste, Scopar ;GET GOOD = 100 
2618 887595 853° 005010 o0112e4 BIS Unit: $GDDAT t INCLUDE UNIT NUMBE® 
9618 027276 017737 154566 OUli1 MOV ; T HCS2_ FOR COMPARISON 
3c18 885504 925535 AgiTs8 Bytise CMP BBbAT: SBbbAT COMPARE PRpECTED 
3620 A WITH DATA READ FROM 
3621 RH nese 
9%ee 027312 001401 BEQ 718 ;BRANCH IF GOOD 
96e3 027314 104117 RROR 11 
aee4 FOL SETTING Nites B17 85 
36 ! ONE. W ones Ts 
9627 jWRITTEN ON THE DEVI 
9628 A WRIT HECK Ck WAS DO 

23 FON AN QuNDRRY THEN 

30 :AN RH LEA (RHCS2 
9631 3 WAS GIVEN THIS SHOULD 
3632 RHEE 
3633 SHOULD HA RAVE IB 
9635 :T0 OGE THER WITH UNIT NUMBER 
3637 BIER IN BAB Rncse 7° 
4 anttbass ph CHECK THAT RHCS3 HAS O 

;CHECK TH H 

2640 027316 012737 oO0000 001124 MOV #0, SGDDAT ;GET GOOD = 0 
9642 027324 017737 154602 001126 MOV MRHCS3,$BDDAT ;READ RHCS3 FOR COMPARISON 
9643 027332 023737 001124 OOlle6 CMP SGDDAT; SBDDAT ; COMPARE EXPECTED 
gous : OR ce TH DATA READ FROM 
9646 027340 001401 Q ? :BRANCH IF GOOD 
3647 027342 104120 ERROR (23 


3646 ;AFTER SETTING “CLR” BIT a5 


. As be 


027344 
027344 
0e73Se2 
027360 


027366 
027370 


027372 
027372 
027400 
027406 


027414 
027416 


027420 


30(104G) 2i-QEC-77 13:05, PAGE 163 


2i-DEC- 2:48 


Ole737 900000 O01ie4 
017737 154506 001126 
923737 O011le4% OOlieb 


001401 
104121 


O01e737 900000 001124 
017737 154524 001126 
023737 O00:1e4% 001126 


00140i 
1041e2 


—  =——- ——— --- - -—_-- 


733: 


758: 


77S: 


N14 


HCS2@-WCE BIT #14 AND RHCS3-WCE EW BIT #11 


MOV 


MOV 
CMP 


BEQ 
ERROR 


MOV 


MOV 
CMP 


BEQ 
ERROR 


;CHECK THAT RHBA HAS 0 
#0, SGODAT 


JRHBA, SBODAT 
$GODAt, SBDDAT 


75$ 
121, 


;CHECK THAT RHBAE HAS 0 
SGDDAT 


a0, 
@RHBAE , SBDDAT 
$GDDAT , SBDDAT 


773 
lee 


i IN RHCSe TO ET" THE RH 

wo L_ONES IS 
SWRITTEN ON THE DEVICE 
:A ag 


K WAS DONE 
WORD Br is) 


i GIVEN IN BAD RHCS3 


;GET GOOD = 0 

;READ RHBA oer COMPARISO? 
: COMPARE EXPECT 

:DATA WITH DATA READ FROM 
: BRANCH IF GOOD 


;AFTER SETTING ma a aS 
:IN_RHCSe TO INIT THE R 
NE_WORD ALL ONES 1s 


or 
oO 
m 
oz 
- 
P+] 
9 
w 
mw 
o 
mS 
=~ 
sz 
Me 


AR ALL ERRORS 

A SHOULD HAVE O 
CONTAINED WHAT IS 

EN IN BAD RHBA 


< 2825 


;GET GOOD = 0 

;READ RHBAE a4... COMPARISON 
; COMPARE EXPECT 

;DAT A_WITH DATA READ FROM 
: BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #S 
} IN RHCSe TO INIT THE RH 
INE _WOR ALL _ ONES IS 


SAN RH CLEAR (RH 
WAS GIVEN THIS SH 
;CLEAR ALL ERROR “ 
;RHBAE SHOULD HAVE O° 
SBUT CONTAINED WHAT IS 
GIVEN IN BAD RHBAE 





CERHADO os pet te 

CERHAD . F 21-DEC- 
9706 Oe742e0 012737 
9708 OerT4e6 017737 
9709 3027434 023737 


G27442e 001401 
0274944 104123 


3 
9726 027446 


9746 027446 O00004 
9747 Ge74S0 012706 
9748 O0e74S4 012737 


9750 027462 004737 


975S 027466 012737 

9756 027474 012777 

9787 Oe7S502 012777 

9758 

9759 027510 004077 
027514 004154 





13: 96 PAGE 184 
736 RHCS2-WCE BIT #14 AND RHCS3-WCE EW GIT #1. 


000000 001124 


154430 O01le6 
6011e4% OCileéb 


OO Me 





B15 





;CHECK THAT RHWC HAS 0 


Mov #0, $GODAT :GET GOOD = 0 
MOV JRHWC , SBODAT READ RHWC FOR 7EQMPAR ISON 
CMP $GODAt, SBDDAT : COMPARE EXPECTED 

spare c WITH DATA READ FROM 
BEG 793 :BRANCH IF GOOD 
ERROR 123 


;AFTER SETTING “CLR” Bit #& 
;IN_RHCSe TO INIT THE RH 
; WORD OF ALL ONES IS 
sR Te ee DEVICE 


DONE 
;ON AN E ven WORD BOUNDARY THEN 
— RH CLEAR (RHCSe BIT +.) 
IVEN THIS SHOULD 

ERRORS 


ALL 

HOULD HAVE 0 
INTAINEO WHAT IS 
IN BAD RHWC 


zo 
ow 


ESSERE EERE EERE ELEE ELLE SESE AEE S ELAR REREAEE ES EES EEE ES 
i eTEST T 37 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #i1 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT aS 
WRITE Nine ye OF ALL NINES ON TO THE DEVICE 
Pes te O DO WRITE CHECK ON THAT WORD FROM AN 


WORD 
DO_A OME WORD WRITE CHECK WITH RHBA FROM AN 


EN WORD 
HIS D SET WCE EW (RHCS3 BIT #11) 
AND a HCSe BIT 


=3mom 
< 


CL 
CHECK RHCS1, RHCS2e, RHCS3, RHBA, RHBAE, RHC 


5-5-5 Salalad-5-1-5-5-talalahalaialalahabelalaiabalaiabalaiaiabalaieichaiehebehaheisiaisieishsieisleleiielcicieidialdeidided 
COPE 


MOV #STACK, SP ;RESET_ STACK 


MOV 837, a8TSTNM :SAVE TEST NUMBER 
JSR PC, J8CLDISK ;GIVE RH INITIALIZE 
:SETUP UNIT 


NUBER 
: CLEAR RHWG AND FUNCTION BITS IN RHCS1 
WRITE “ WORD OF ALL ae ON THE DEVICE 


hov “1. WRF ROM L ONES INTO WRITE FROM 

MOV :- WC NINE WORD FOR WORD COUNT REGISTER 
MOV SWRFRON SRHBA WRITE FROM BUFFER INTO BUS ADDRESS 
JSR RO, JCOMND ;GO TO DO COMMAND 

WRIDAT :WRITE DATA 





C1S 
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CERHAD. P11 21-DEC-77 12:48 137 RHCS2-WLE BIT #14 AND RHCS3-WCE EW BIT wil 
3563 SET UP FOR WRITE CHECK 
S585 027516 005037 003000 ick BUF EW a ;WRITE DATA ha yf WRITE CHECK ERROR 
764 7S2e 012777 177767 154332 MOV ST 
3765 : 7530 012777 03080 154326 MOV soUFENY aRHBA Fits ae es BUS ADDRESS 
9767 “WRITE CHECK oN EVEN word” BOUN 
$768 027536 O04077 155076 SSR AB dc MNO O TO DO COMMAND 
3783 G2e754e O041S50 WRCHEK i ORITE CHECK DATA 
9771 
9772 
$773 
9774 CHECK THAT RHCS2 HAS WCE! OR! IR 
9775 027544 012737 O40300 001124 hov #WCE! OR! IR, $GDDAT ;GET GOOD = 40300 
3776 027552 053737 OOSO1IO0 O0i124 BIS UNIT. $coDAt ; INCLUDE UNIT NUMBER 
9778 027560 017737 154304 001126 MOV QJRHCS2,SBODAT ;READ RHCS2 FOR COMPARISON 
9779 Ge7566 023737 OO1124 OOlic6 CMP S$GDDAT;S$BDDAT ;COMPARE EXPECTED 
3780 Rare WITH DATA READ FROM 
9782 027574 001401 BEQ 653 :BRANCH IF GOOD 
9783 O0e7576 iD4114 ERROR 114 
9784 SOFTER SETTING ToL” BIT as 
9785 N RHCSe TO INIT THE R 
9786 ‘ONE WORD OF ALL ONES te 
$787 SWAT TTEN ON THE DEV Ice 
9788 WRITE CHECK WAS DON 
$789 AN EVEN WORD BOUNDARY THEN 
3730 i Riicse SHOULD HAVE WCE! OR! IR 
9791 :=40300 
3792 ; TOGETHER WITH UNIT NUMBER 
3793 UT CONTAINED W IS 
$754 GI VEN IN BAD 
9795 027600 65S: 
9796 
9737 ‘i CHECK THAT RHCS3 HAS OBL! WCEEW 
3738 027600 612737 OO6000 oo112e4 hov sDBL! WCEEW, SGDDAT ;GET GOOD = 6000 
9800 O27E06 017737 154320 o01126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
9801 027614 623727 GOll2e4 OO1126 CMP $GDDAT , $BDDAT ; COMPARE EXPECTED 
gede BR ara. TH DATA READ FROM 
9804 027622 001401 BEG 67% :BRANCH IF GOOD 
9805S 027624 104115 ERROR i115 
9806 ;AFTER SETTING woLR” BIT #5 
3807 sin N RHCS2 TO INIT THE RH 
9808 WORD OF ALL ONES Is 
9809 RITTEN ON THE DEVICE 
9810 re ITE CHECK WAS DONE 
3E1ii : ON An EVEN WORD BOUNDARY THEN 
Sets g RUGS SHOULD HAVE DBL! WCEEW 
9614 :BUT CONTAINED WHAT IS 
pf) Ree ies :GIVEN IN BAD RHCS3 
SB8i& De7E=E 67%: 


ee ee ——_— 


D1S 


CERHADO MACY 11 30; 1048) 2i-DEC-77 13:06 PAGE 186 
CERHAD. P11 21-DEC-77 12:48 737 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 
Te 
3813 027626 004737 O40306 JSR PC, JHCLCISK : G1VE ve. RH H NI TIAL IZE 
9821 OT EAR RHWC AND FUNCTION BITS IN RHCSIL 
9822 
9823 
9824 CHECK THAT RHCS1_ HAS RDY!OVA 
a826 027632 012737 oO4200 001124 hov #RDY!0VA,$GDDAT ;GET GOOD = 4200 
9827 027640 017737 154214 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
9828 027646 023737 001124 Ol1126 CMP $GDDAT: $BDDAT ; COMPARE EXPECTED 
9829 : PATA, WITH DATA READ FROM 
383% 027654 o01401 BEQ 69 BRENCH IF GOOD 
9832 027656 i041i6 ERROR 116 
7 POTRR SET TENG PU Aoe hl 
4 
9835 i BNe® HSRB OF at? ONES IS 
9836 SORT TEN on” THE” DEVICE 
9837 :A WRI TE CHECK WAS DONE 
9838 j ON aN WORD BOUNDARY THEN 
9839 :@N RH CLEAR (RHCS T aS) 
9840 {HAS "GIVE N THIS SH HOULD 
9641 L ERROR 
ggyue ;RHCS1 SHOULD HAVE RDY!DVA 
9843 4200 
9644 ‘BUT CONTAINED WHAT IS 
984s :GIVEN IN BAD RHCS1 
9846 027660 69S: 
9847 -CHECK THAT RHCS2 HAS IR 
9848 027660 012737 oO00I00 001124 MOV #IR, SGODAT ;GET GOOD = 100 
3649 027666 053727 OOSOiIO 001124 BIS ONT. $GDDAT : INCLUDE UNIT NUMBER 
9851 027674 017737 iS4170 001126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
9852 Oe7702 023737 001124 OOlicb CMP $GDDAT,$BDDAT ;COMPARE EXPECT 
3853 DATA WITH DATA READ FROM 
9855 927710 001401 BEG 71S :BRANCH IF GOOD 
9856 027712 104117 ERROR 117 
9857 ; AFTER SETTING “CLR™ BIT #5 
3ee5 ONE WORD OF. ALL ONES. 1% 
N 
3860 One N ON T Device 
9861 !Q WRITE CHECK WAS 
a8e5 ON RY ELEAR CRNCSS Bil eS) 
#5) 
9664 WAS "GIVER THIS gf Su PE 
98s 'CLEAR ALL E 
3868 ;RH S2 SHOULD ROAVE IR 
9668 TOGETHER WITH UNIT NUMBER 
9863 ‘BUT CONTAINED WHAT IS 
9670 :GIVEN IN BAD RHeSS 
9871 927714 713: 
9872 :CHECK THAT RHCS3 HAS O 


CERHADO MACY11_ 30( 1046) 
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027714 
Oer7ee 
027730 


027736 
027740 


027742 
027742 
027750 
027756 


027764 
027766 


027770 
027770 
027776 
030004 


O03001e 
030014 


21-DEC-77 
012737 


012737 


017737 
023737 


21-DEC-77 
12:48 


009000 


154204 
001124 


oo0c00 


154110 
001124 


ooo000 


154126 
001124 


= 
¢ 


O0ii24 


001i26 
001126 


733: 


001124 


001126 
001126 


7SS$: 


001124 


001126 
O0ileb 


£15 


RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 


13: 08S PAGE 187 


MOV #0, $GDDAT ;GET GOOD = 0 
MOV @RHCS3, SBODAT ;READ RHCS3 FOR COMPARISON 
CMP $GDDAT , SBDDAT ; COMPARE EXPECTED 
:08 reas DATA READ FROM 
BEO 733 :BRANCH IF GOOD 
ERROR 120 
+e SETTING “CLR” GIT #5 
;IN_RHCSe TO INIT THE RH 


; ONE RHORD OF ALL ONES 15 


S DONE 
. EVEN WORD BOUNDARY THES 
;AN RH CLEAR (RHCSe BIT #5) 
;WAS RO IVER THIS SHOULD 
: RRORS 


GIVEN IN BAD RHCS3 
-CHECK THAT RHBA HAS OD 


Ov #0, SGDDAT ;GET GOOD = 0 
MOV JRHBA, SBODAT ; READ RHBO FOR COMPARISON 
CMP $GDDAT , SBDDAT ; COMPARE E 
;DAT DATA A WITH ATA READ FROM 
753 ? SRANCH IF GOOD 


BEG 
ERROR lel 
4 Ag + SETTING oY "Fn BIT #5 


HECK WAS 
;ON AN EVEN WORD BOUNDARY THEN 
;AN RH CLEAR (RHCS2 aS) 
;WAS GIVEN THIS SHOUL 
i CLEAR ALL i. 
;RHBA SHOULD H 


AVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 


;CHECK THAT RHBAE HAS DO 


MOV #0, $GDDAT :GET GOOD = O 
MOV JRHBAE,SBODAT ;READ RHBAE FOR COMPARISON 
CMP $GDDAT:SBDDAT :COMPARE EXPECT 

spare WiTh DATA READ FROM 
BEO 77% !BRANCH IF GOOD 
ERROR 122 


;AFTER SETTING “CLR” BIT #5 
:IN_RHCS2 TO INIT THE RH 
:ONE_WORD OF ALL ONES IS 
:WRITTEN ON THE DEVICE 


CERHADD MACY11_ 30‘ 104%6. 
cER ii 1-DEC-7" 


HAD.FLi 


030016 
03001 
030024 
030032 


930040 
030042 


030044 
030046 
0300Se2 


030060 


01ie737 
177 ? 


023737 


090004 
012706 
612737 


004737 


2i-de 
12:48 


000090 9001124 


iS4032 001126 
OCiie#Y OOlieb 


001000 
000846 


040306 


o00003 


~ 


c- 


77? 13:06__PAGE 188 
T37 


oo4eSé6 


F1S 


RHCSe-WCE SIT #14 AND RHCS3-WCE EW BIT #11 
;A WRITE CHECK WAS DONE 


;ON AN EVEN WORD sory THEN 
:AN_RH CLEAR (RHCSe BIT #5) 
; SHOULD 


: GIVEN IN BAD RHBAE 


7783: 

:CHECK THAT RHWC HAS 9 

Mov #0, $GDDAT GET GOOD = 0 

MOV JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 

CMP $GDDAT,SBDDAT ;COMPARE EXP 
sare WITH DATA READ FROM 

BEO 79 :BRANCH IF GOOD 

ERROR 123 
;AFTER SETTING FOL R™ BIT #S 
:IN RHCSe TO INIT THE RH 
:ONE WORD OF ALL ONES IS 
:WRITTEN ON THE DEVI 
:A WRITE CHECK WAS DON 

N AN EVEN WORD BOUNDARY THEN 
:AN RH CLEAR (RHCS2 BIT ss) 
:WAS GIVEN THIS SHOUL 
:CLEAR ALL ERRO 
:RHWC SHOULD H 
:BUT CONTAINED mvnat Is 
ae GIVEN IN BAD RHWC 


5 EERE FREREE SESE EERE AER ER EEE E REARS ERE ERE REESE ERASER EEE EERE EES 
iSTEST 40 TEST DBL (RHCS3 BIT #i0) TEST A 


CLEAR _THE y wit BY A CONTROLLER CLEAR (RHCSe BIT #5? 
SET UP _FOR A i ~ WRITE FROM AN EVEN on BOUNDARY 
DO _ A NINE WORD WRITE FROM AN EVEN WORD BOUNDAR 

THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

CHECK RHCS3 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


OK WO 


coke Ng SS  lnenepesai 8 Pi 
TY 


MOY STACK, SP ;RESET STA 

MOV #40, a8tSTNM : SAVE Test NUMBER 

JSR PC, a#CLDISK ;GIVE RH INITIALIZE 
:SETUP UNIT R 


NUBE 
;CLEAR RHWC AND FUNCTION BITS IN RHCS1 


;SET UP FOR A NINE WORD WRITE FROM _AN EVEN WORD BOUNDARY 
MoV #3,R1 ;COUNT OF THREE 


G1S 


Erne WACVES Fh) SI-SEOWTE: Fe POE IPN ee wig) testa ee 


CERHAD.F 11 21-DEC-77 12:48 THO TEST DBL (RHCS2 BIT #10) TEST A seo 0:82 
9985S 030070 O12702 003000 MOV aBFEVEN,R2 :START THREE WORD BUFFER 
9986 :FROM AN EVEN WORD BOUNDARY 
338° 930074 o12722 oseses i$: mov BS2525, (R2)+ SHOVE THREE S2S52S INTO BUFFER 
3090 530,04 pieeer 00 183752 ae SBFEVEN, JRHBA gy Rn Re nO. OORT 

be] 77 7S2e ' 8 
“oo eathel del ocetactaty Ms ‘ PE an BORE A RD BSUNGAR 
3936 930112 012777 Eke of 153742 mov 8-9. ASRHWC 5 WORD count NINE 5 eel 
7 1 14 t , 

9994 Bapiso = pen0c, UR toAT fer Te Bars 
3995 
3996 
9997 CHECK THAT RHCS3 HAS 0 
3338 030126 012737 op0c0e 001124 hoy #0, SGODAT :GET GOOD = 0 
10006 030134 017737 183772 001126 MOV JRHCS3,$BO0DAT  ;READ RHCS3 FOR COMPARISC.. 
10001 030142 523737 OO11e4 Oo1126 CMP $GDDAT , $BDDAT ; COMPARE EXPECTED 
1000e :DATA WITH DATA READ FROM 
10093 :RHCS3 
10004 o30150 901401 BEG 65S :BRANCH IF GOOD 
19005 oO320152 :04124 ERROR ile4 
10006 AFTER SETTING “CLR” BIT aS 
10007 N RHCSe TO ait THE RH 
190008 ia NINE WORD WR M AN 
10009 EVEN WORD oUNDARY Rae DONE 
10010 THEN 
100i1 ; RHCS3 SHOULD HAVE_O 
1061¢ BUT CONTAIN D WHAT IS 
1001 ?GIVEN IN BAD RHCS3 
10014 o30154 65S: 
100iS O30i54% oO4eTT7 O00076 153676 BIC #76, JRHCS1 CLEAR FUNCTION BITS 
10016 -CHECK THAT RHCS1 HAS roy *DVA 
19617 O320162 0127327 OO4200 001124 Mov #RDY!DVA,SGDDAT ;GET GOOD = 4200 
10019 030170 617737 153664 O01126 MOV @RHCS1,$B0DAT  ;READ RHCS1_FOR COMPARISON 
10020 630176 023737 OO0112e4 OdOlice CMP $GDDAT’$BDDAT ;COMPARE EXPECTE 
19021 Pare WITH DATA READ FROM 

< 
10023 oO30204 901401 BEO 67% !BRANCH IF GOOD 
10024 oO30206 194125 ERROR 125 
10025 Or TER SETTING "OLR" BIT aS 
19026 N RHCS2 TO INIT THE RH 
10027 AN WINE WORD WATT aR 
19928 evth WORD BOUNDARY a4 BISNE 
these sRHCS1 SHOULD HAVE RDY!DVA 
12885 MeO BEr ate] 
19038 030210 &7S: 

*-CHECK THAT RHCSe HAS IR 

10036 030210 012727 oO0100 o01124 MOv #1R, $GDDAT ;GET GOOD = 100 
10037 030216 053737 OOS0i0 OO011e4 BIS UNIT, $GDDAT : INCLUDE UNIT NUMBER 
19039 9030224 017737 153640 001126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
10040 920232 923737 601124 9O01126 CMP $GDDAT:$BDDAT :COMPARE EXPECTED 


H1S 
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CERHAD.F1i 2l1-DeCc-"> 12:48 40 TEST DBL (RHCS3 BIT #10) TEST A 

10081 ‘DATA WITH DATA READ FROM 

i904 ; 

15043 g30E40 093401 BEG _ 698 :BRANCH IF GOOD 

44 42 l04le a F 

ioo4s x . 3 . ;AFTER SETTING "CLR" BIT w5 
10046 i IN NINE G i in INIT THE R 

10047 

iBB6 EVEN FoR BotnbaBy’ Roll aN DONE 
1004s THEN 

19980 RH 2 SHOULD HAVE IR 

100Se TOGETHER WITH ie _" 

N H 

Sees SY TeR HABE? ate 

1 S o30e44 69$: 

100S6 :CHECK THAT RHWC HAS 0 

10034 036244 <dSie737 oOoooo0o0 O611e4 MOV #0, $GODAT ;GET GOOD = 0 

1008S 030252 017737 153604 001126 MOV QRHWC , SBDDAT ;READ RHWC FOR COMPARISON 

10060 O30e680 S23737 oO0lle4% OOLl1e2E CMP $copDAt , $SBODAT : COMPARE EXPECTED 

1006 oh A WITH DATA READ FROM 

10063 O30266 O00:401 BEG 71$ Sica IF GOOC 

10064 C29er0 104131 ERROR tsi 

10065 Ay + SETTING “CLR” BIT #5 
10066 PIN RHCSe TO INIT = -" 

10067 ;A NINE WORD WRITE FROM 

18 68 if VEN WORD BOUNDARY WAS BONE 
10069 HEN 

ieee Surcconceineor ee? 2s 

18554 iB EN IN BAB RHC 7° 

10073 o20272 71S: 

10074 

10075 

10076 

10077 + RE RERRE EERE EERE SERRE R EER KERR ERE RERE REESE ERE RRA ERF SER SRE EEE 
ipecs i STEST 4] TEST DBL (RHCS3 BIT #10) TEST 8 

i0a¢ :* SET UP FOR 8 TEN WORD UR A Bs ghee CLERR (wees Se 

cs SET U N WwW N N Y 

1008e ;* DO A TEN WORD TER He Paonia A 55 a ABR EB UNDE RY 

ipo ;* ae} a SET RHCS3 BIT #10 OD 

;* 

100° :* CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

10087 FEEEESESRERSSEEREREEREE RES ERLE RARER ERE E RRR RAR ESRF KER EEE ASEH EE 
eee spain th oT 7 torus. SCOPE - ' C 

9 Vv K F 

iBBEd 48527 Ris20s stelolelcb OO4ESE MSY Hepat tate i BESE red? KuMBER 

10092 030306 004737 049306 JSR PC ,aeCLDISkK sGIVE RH ete LT Se 

eas EERE Hike SHEE 

tet LEAR RHWC AND FUNCTION BITS IN RHCSi 
100S& :SET UP FOR A TEN WORD WRITE FROM AN EVEN WORD BOUNDARY 
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RH 
H 


R TEST DBL (RHCS3 BIT #10) TEST B ES 0:90 
0097 030312 912701 000003 MOV #3,R1 COUNT OF THREE 
00 B303i6 O1s702 903000 MOV eBFEVEN, Re i Eo aRT THREE WORD BUFFER 
0 !FROM AN EVEN WORD BOUNDAR 
01 30322 Ole722 o52525 18: MOV wSeSeS, (Re)+ :MOVE THREE $2625 INTO BUFFER 
O1 030326 005301 DEC Ri COUNT 
6102 030330 001374 BNE 1$ :BRANCH_IF_THREE NOT _QONE 
01 030332 012777 003000 153524 MOV SBFEVEN,ORHBA ;SET BUS ADDRESS TO START 
01 :FROM AN EVEN WORD ORSUNDAR 
0105 030340 012777 177766 153514 MOV #-10.,JRHWC ;WORD couny TEN 
01 030346 0604077 igasee JSR ROS aCOMND 560 10 DO COMMAND 
o1 030352 o04154 WRIDAT ;WRITE DATA 
;CHECK THAT RHCS3 HAS DBL 
030354 012737 oo2000 o011e4 Mov #DBL , SGDDAT ;GET GOOD = 2000 
030362 317737 153544 9001126 MOV DRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
030370 023737 301124 o01126 CMP $GDDAT;S$BDDAT  ;COMPARE EXPECTED 
pare WET DATA READ FROM 
030376 001401 BEQ 65S ;BRANCH IF GOOD 
530400 104124 ERROR 124 


ay ae TT ING 2¥" tu BIT #s 
i IN RHCSe TO INIT THE RH 
;A TEN WORD WRITE FROM AN 
sGVEN WORD BOUNDARY WAS DONE 


i RHCSS SHOULD HAVE DBL 


:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


OW £WMOWODONMUE Wl-OWD NOU E Wr- OUD NOU Swe OWON Fatal 


ey en ee ee re ee ed ed rd ee nn ed el ee A 
NWN ec CEEOL EL EID) LEI ITITU NIT INULIN Ir ne eh EU) BRO A te eee 


030402 6S$: 
O0304Ge 042777 OO00076 1534S0 BIC #76,9RHCS1 ; CLEAR FUNCTION BITS 
ey CHECK THAT RHCS1 HAS R 
030410 012737 oo4200 o01124 hoy #RDY!DVA, SGDDAT TéEy GOOD = 4200 
030416 017737 153436 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
030424 623737 001124 Odlise CMP $GDDAT’$BDDAT ;:COMPARE EXPECTED 1% 
iA ara With DATA READ FROM 
7 030432 9001401 BEQ 67% ‘BRANCH IF GOOD 
@ 020434 i9412¢ ERROR 125 
3 :AFTER SETTING “CLR” BIT #5 
0 i IN N RHCSe TO INIT TH HE RH 
1 ;A TEN WORD WRITE FROM AN 
: s EVEN WORD BOUNDARY WAS DONE 
S :RHCSL SHOULD HAVE RDY!DVA 
5 $2yi commepe eer 7 
8 030436 673: 
os CHECK THAT RHCS2 HAS IR 
GO O3043& 012737 000100 001124 hov #IR, SGODAT :GET GOOD = 100 
1 930444 053737 oOOfolo o01124 BIS UNIt $GDDAT ! INCLUDE UNIT NUMBER 
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oS 


ONVOVDOVOONVOOVOOVDMIOVOVOOVONOVOONVOVOOOAOIOOOONVDONDOONONOO DD 
bas ee bo be be B= be b= = be Be be be bo be be b= bo = be = b= be be bs ee be 8 Be oe Be he 


OOOO WOVDVN OND DODODVODOOODODODMOMDDYYIN YIN NINN ONO TTOOOOUUIMUIUTUIU 
ONOMN LW OODNOW £ WM OWD NOU Wl OOD NOUS WOW NOU LS Wr-OWD NOUS Ww 


b= hs bs be ee ee os be be be Bs bm bs se Be be he be ee ee Be Bn Bs bs be bs bo bo be be 0 Be he ee ee a he heheh | PTET) 
oo 


OVONVVOVOVVOVOV0O0ON000 
aUaViatiatiatiatiatigvisll ot ot el ol) 


Ooo 


RO, ‘yas 30‘ 10463 
2i-DeC-r? i: “a 


1$341e O00i126 
O01ie4% COlleé 


0304S2 
030460 


230466 
030470 


030472 
030472 
030590 
030506 


030514 
030516 


030520 


030520 
030Se2 
030526 


030534 


oo9000 001124 


1533S6 001126 
0011ie4% O011e6 


001000 
ooco4e 004656 


J1s 


TEST DBL (RHCS3 BIT #10) TEST B 


13: . = ~—— 13e 


MOV JRHCS2, SSODAT ;READ RHCS2 FOR COMPARISON 
CMP $GDDA’ , SBDDAT : COMPARE EXPEC 

0A oh DATA REAC FROM 
BEG 693 | BRANCH IF GOOD 
ERROR 126 


Ad SETTING Init THe Aa aS 


-) FROM AN 

+ ENEN WORD BOUNDARY WAS DONE 
RHCS2 SHOULD HAVE IR 

: TOGETHER WITH UNIT _ 


:BUT CONTAINED WHA 
:GIVEN IN BAD Ricee 


69S: 
-CHECK THAT RHWC HAS DO 
MOV #0, SGODAT ;GET GOOD = 0 
MOV DRHWC , SBODAT ;READ RHWC FOR COMPARISON 
CMP $GDDAt, S$BDDAT ; COMPARE EXPECTED 
spare ATA WITH DATA READ FROM 
BEQ 715 :BRANCH IF GOOD 
ERROR 131 
;AFTER SETTING “CLR” BIT aS 
:IN RHCS2 79 INIT TH 
:A TEN WORD WRITE FROM 
j EVEN WORD BOUNDARY WAS MOONE 
RH C SHOULD HAVE 0 
!BUT CONTAINED WHAT IS 
. :GIVEN IN BAD RHWC 
713: 


EEEEEAERE EERE EEE EEE EER ER EE EE RRA RELRE EEE ERE RALRAEERERE EEE ERE SE 
rETEST 42 TEST DBL (RHCS3 BIT #10) TEST C 


;* CLEAR. THE syesys ten BY A conten es CLEAR (RHCS2 BIT aS) 
;* SET FOR A TEN WORD WRITE FROM AN ODD on © tesiagions 

;* 00 A Ut EN WORD WRITE FROM AN ODD WORD BOUNDAR 

;* THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

;* CHECK RHCS3 

;® CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


SFKESSSSAAAKEHARARHESERAHAAAHEE KAA RERARAAAHAERAKRAAARSAHAES TRH HASH LHS 
+6742: SCOPE 
MOY 


“STACK, SP ;RESET STACK 
MOV #42, a8tSTNM :SAVE TEST NUMBER 
JSR PC, J#CLDISK ;GIVE RH INITIALIZE 


:SETUP UNIT NUBER 
:CLEAR RHWC AND FUNCTION BITS IN BHCS1 


ses re 30‘ 1046) 
CERHAD . F 


Riou 
TUPI TUT ba et - 
WM -OWONCTU CWM-OW 


OOOO NDVDOOVDOV000000000 
rurufufufurofufufurur 

furufurur 

NOU AL 


etetat etatatntatatatatatatatetatatatatatatatatatatatatatatatatatetatatetetatat aia 
furufufuruofofur 
£fWWWWWW 
K-OWONOME 


030540 
030544 


030550 


O30S66 
030574 
030600 


030602 
030610 
030616 


0306e4 
030626 


030630 
030630 


030636 
030644 
030652 


030660 
030662 


030664 


030664 
030672 


21-0EC-77 


ooo SRRO oo 
OE ee 


o0O~- =» 


042777 
0127357 
017737 
023737 


091401 
104125 


012737 
053737 


K1S 


ei-DEC-77 13:06 a 193 


12:48 


000003 
003002 


oseses 


003002 153276 


177766 153266 
154040 


oo00000 001124 


153316 O01126 
00i1e4% OO0lleb 


000076 153222 
Oo04e00 601124 


193210 001126 
O0ile% 001126 


000100 OO11e4 
005010 O011e4 


1$: 


65S: 


TEST DBL (RHCS3 BIT #10) TEST C 


SET UP oR : TEN WORD WRITE FROM AN ODD WORD BOUNDARY 
OUNT OF THREE 


hov 

MOV sarooo, R2 :START THREE WORD BUFFER 
:FROM AN ODD WORD BOUNDARY 

mov BS2S2S, (R2)+ ROVE, THREE 52525 INTO BUFFER 

BNE 1$ :BRANCH IF THREE NOT DONE 

MOV #BF ODD, JRHBA :SET BUS ADDRESS TO START 
:FROM AN ODD WORD BOUNDARY 

MOV #-10.,@3RHWC ;WORD count 7 EN 

JSR RO, ICOMND 5 15 D0. COMMAND 

WRIDAT GRIT DAT 

*CHECK THAT RHCS3 HAS 0 

MOV #0, SGODAT ;GET GOOD = 0 

MOV MRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 

CMP $GDDAT | $BDDAT T 


; COMPARE EXPECTED 
DAT A WITH DATA READ FROM 


RHCS3 
653 } BRANCH IF GOOD 


BEQ 
ERROR 124 
;AFTER SETTING 7o "90 a aS 
} IN RHCSe TO INIT THE R 
TEN WORD WRITE FROM 
: 000 WORD BOUNDARY WAS BONE 


i RHCS3 SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


BIC 876, IRHCS1 CLEAR FUNCTION BITS 
>CHECK THAT RHCS1 HAS RDY!DVA 

MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 

MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GDDAT: $BDDAT 


; COMPARE EXPECT 
;DATA WITH DATA READ FROM 


RHCS1 
673 : BRANCH IF GOOD 


EQ 
RROR les 
;AFTER SETTING ot BIT aS 
: IN RHCSe TO INIT THE * 
TEN WORD WRITE FROM 
‘ODD WORD BOUNDARY WAS BONE 


;RHCSI SHOULD HAVE RDY!DVA 


‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS1 


: CHECK THAT RHCS2 HAS IR 
MOV $GDDAT ;GET GOOD = 100 
BIS Sart $GDDAT : INCLUDE UNIT NUMBER 
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CERHAL.P1l 21-DEC-77 12:48 THe TEST DBL (RHCS3 BIT #10) TEST C SEG 0:93 
1026 

10266 030700 017737 153164 CO1126 MOV @DRHCS2,$BDDAT ;READ RHCS2 FOR COMPARISON 
10267 G30706 023737 O01124% O01:26 ‘ CMP $GODAT.EBDDAT  ;COMPARE EXPECTED 

10268 ie Rese DATA READ FROM 

1026 

isery S8Gri2 PBAHRE Pfion 128 parse 

1865 AFTER SETTING “CLR” BIT #S 
10273 i IN RHCSe TO INIT THE RH 

10274 A TEN WORD WRITE FROM AN 

10e75 ODD WORD BOUNDARY WAS DONE 
10276 : THEN 

10277 ; RHCS2 SHOULD HAVE IR 

10278 P| 

1027 : TOGETHER WITH UNIT NUMBER 
10280 :BUT CONTAINED W Is 

10281 :GIVEN IN BAD rtices 

10e82e 030720 69S: 

10283 :CHECK THAT RHWC Has 0 

10284 030720 012737 oo0000 001124 MOV #0, SGDDAT ;GET GOOD = O 

1 726 7737 31 0 1126 MOV RHWC,S$ ;REA R_ COMPARISON 

iBS9 838558 843535 Ait 8B 1158 CMP eDbSt: BeeB AT COME ARE BME PEC TES 

10288 a A WITH DATA READ FROM 

10289 : RHWC 

1 030742 001401 BEQ 71$ : BRANCH IF GOOD 

10291 030744 104131 ERROR 131 

10e3e 3 OATER SETTING Gut OL BIT aS 
18533 AN BN BSR WAT TE FROM KN 
10895 $000 WORD BOUNDARY WAS DONE 
1peae :RHWC SHOULD HAVE O 

10298 :BUT CONTAINED WHAT IS 

102993 = :GIVEN IN BAD RHWC 

10300 oO30746 718: 

10301 

190392 

16303 

10304 ipecetesercurenprseueontesnee ee a. , 
inane *TEST 43 TEST DBL (RHCS3 BIT #10) TEST DO 

40307 ;* CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
10308 i SET UP FOR A ELEVEN WOR WRITE FROM AN EVEN WORD BOUNDARY 
103093 ;# DO A ELEVEN WORD WRITE FROM AN EVEN WORD BOUNDARY 

LTH ;* nas SHOULD NOT SET RHCS3 BIT #10 DBL 

e .= 

103i¢ $a CHECK RHEE, RHCS2, RHBA, RHBAE , RHWC 

10314 + EERE REEL EEEE EEE REEL LEER ERE REE EERE EERE REELS LE RE EE LEAS RES EHS 
1031S 030746 900004 $6143: SCOPE 

10316 030750 Gie706 o01000 MOV aSTACK, SP ;RESET STACK 

10317 030754 012737 OO0043 oOoY4EsE MOV #43, aeTSTNM :SAVE TEST NUMSER 

10319 030762 004737 oO40306 JSR PC, JeCLDISK ;GIVE RH INITIALIZE 

10320 :SETUP UNIT NUBER 
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CERHAD.P11 | 21-DEC-77 12:48 T43 TEST OBL (RHCS3 BIT #10) TEST D SEG 0:94 
10321 CLEAR RHWC AND FUNCTION BITS IN RHCS1 : 
15355 ,SET UP FOR A ELEVEN carte FROM AN EVEN WORD BOUNDARY 
ipsct genres giseas BBSbbs MOV Sate VEN, R2 [Exon gus SyEN Soe ROP GSRY 
10326 

77 25 1S: MoV #52525, (R2)+ NRE UFFER 
et ae am eS Piesenieite 
i 

MOV SEFEVEN,ORHBA =; 5ET ADDRE S 

19336 031008 012777 003000 153050 . ee et Re Be SS TO START 
10332 O31014 012777 177765 153040 MOV HWC sw iN 

4077 114° aJCOMND 1o°6 COMMAND 
iPass Beipse Beuoe, tSsele Je or - oO TTe DATA 
10335 
10336 
10337 {CHECK THAT RHCS3 HAS 0 
10338 031030 012737 900000 001124 mov #0, SGDDAT :GET GOOD = 0 
fee SRG GAGra? ART WLR Se SRGED PET store ere on comer 
1034 Clan Soeeee Bare REE Dafa Reap FROM 
ee Baie eect Blin 8 poids 
10346 SAFTER SETTING “CLR” BIT #5 
a ffir Bn pe 
10349 Ne RD BOUNDARY WAS DONE 
10350 THEN 
ip3e2 HOS 8 ORTRTNED AMAT IS 
18325 ta IN BA RHCSS 
10354 oO310S6 65S: 
10355 031056 042777 OD0076 152774 #76, aP4 251 {CREAR FUNCTION BITS 
10356 BLS ECK THAT’ RHCS1 HAS RDY 
10357 031064 012737 004200 o01124 hov 8RDY!DVA,SGDDAT ;GET GOOD = 4200 
10359 031072 017737 152762 001126 MOV JRHCS1, SBDDAT AD RHCS1_ FOR COMPARISON 
10360 031100 023737 OGOlies P A Tt  !COMPARE EXPECTED 
1B3e7 a _ SCOOAT, SE00A : COME WITH DATA READ FROM 
1D363 031106 001401 BEQ 67S i RCS IF GOOD 
tB3eq Bette osyo2 ERROR foe 
10365 :AFTER SETTING “CLR” BIT #5 
10366 :IN-RHCSS 10 INIT THE RH 
10367 A ELEVEN WORD WRITE FROM AN 
10368 EVEN WORD BOUNDARY WAS DONE 
10369 : THEN 
10376 ;RHCS1 SHOULD HAVE RDY!DVA 
10272 ‘BUT CONTAINED WHAT IS 
10373 GIVEN IN BAD RHCS1 
ipars COTE hei CHECK THAT RHCS2 HAS IR 

HECK TH H 

19376 O2111:2 012737 000100 001124 hov WIR, SGDBAT GET GOOD = 100 
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CERHADO MACY11 22020462 21-DEC-77 13: 06 PAGE 196 Aaa Ge 
SERHAD-P! 11 21-DEC-77 12:48 T43 TEST DBL (RHCS3 BIT #10) TEST D SEG 0195 
19377 031120 053737 ooS010 001124 BIS UNIT, SGDDAT ; INCLUDE UNIT NUMBER 
18390 Bsilss oeara? orien Oolise MON «SEBS SE» $E00RT «REMPARE EXPECTED 
10381 ‘pare, Mae DATA READ FROM 
10383 031142 001401 BEQ 693 :BRANCH IF GOOD 
10384 O31144 104126 ERROR 126 “ 
1038S AFTER SETTING “CLR” BIT #5 
10386 i IN RHCSe TO INIT THE RH 
10387 A ELEVEN WORD WRITE FROM AN 
10388 :EVEN WORD BOUNDARY WAS DONE 
10389 : THEN 
10330 . sRHCSe SHOULD HAVE IR 
10392 : TOGETHER WITH UNIT NUMBE.; 
10393 eur CONTAINED WHAT IS 
103954 Vs GIVEN IN BAD RHCS2 
10395 031146 69S: 
10396 CHECK THAT RHWC HAS 0 
10337 031146 012737 oo00000 001124 MOV #0, SGDDAT ;GET GOOD = 0 
10399 031154 017737 152702 001126 MOV SRHKC . SBOONOT READ RHWC FOR COMPARISON 
10400 031162 023737 OO112e4 O01126 CMP $cooat- SB00AT COMP ARE EXPECT 
ie pare WITH DATA READ FROM 
10403 031170 001401 BEQ 71% :BRANCH IF GOOD 
10404 O31172 194131 ERROR ial 
10405 s;AFTER SETTING ToLR™ BIT aS 
10406 i IN RHCS2 TO INIT THE RH 
10497 A ELEVEN WORD WRITE FROM +N 
as 4 : EVEN WORD BOUNDARY WAS DONE 
10410 RHIC SHOULD HAVE O 
10411 !BUT CONTAINED WHAT IS 
104%ie :GIVEN IN BAD RHWC 
10413 O31174 . 71S: 
10414 
10415 
10416 
10417 =» SHKKERESEKKAEKSAKAHKAARAEAEAAEASAARESEAELAREAAHAFAAKAREARAFEL RPL 
1oui8 ‘ STEST 44 TEST DBL (RHCS3 BIT #10) TEST E 
10420 ;* CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
10421 3% SET UP FOR A TEN WORD WRITE FROM AN EVEN WORD BOUNDARY 
10422 : WITH BAI IN RHCS2 BIT #3 SET 
10423 ;% D0 A TEN WORD WRITE FROM AN EVEN WORD BOUNDARY 
i04e4 :% THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
10425 :* CHECK RHCS3 
imice ;# _ CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
1942s + FREREKREERESEEREREREREREREL EERE RREE RRA RRARRARRR RAS SRSE ELS RHRESERE 
10429 031174 oo0004 sétyu: 5 
10430 031176 012706 o01000 MOV STACK, SP ;RESET STACK 
10431 031202 012737 OO00044 oo4EsE MOV #44, a8 TSTNM :SAVE TEST NUMBER 


a re aN Se 





“ERHADC MACYL1 30:i04@ 2:-DEC-"" 13:06 PAGE 197 - . Ci aia 
=ERWAD.& 1: 2i-DET-"7 12:48 or) 7ES7 DBL (RMCS3 BIT e195: TEST E f. 2:% 
30433 031210 304737 040306 Ise PC. JeCLDIS» :GIVE_ RM INIT 16. IZE 
i0434 ‘SETUP UNIT NUBER Ppa Sonae 
1043S :CLEAR RMWC AND FUNCTION BITS Iv) S05: 
4 
iea3s SE’ UP FOR A TEN WORD WRITE FROM AN EVEN WORD BOUNDAS 
10436 031214 012701 900003 ay 03,R1 ; COUNT OF THREE 
10439 O21220 012702 603000 MO’ SatE VEN, Re : START HREE WOR D SUFFER 
10480 :FROM AN EVEN WORD BOUNDARY 
i044i 031224 Ole722 oSese5 18: MOV #52525, (R2)+ i MOVE | THREE S2S2S INTO BUFFEF 
10442 931230 005301 DEC Ri 
i0443 031232 001374 BNE 1$ : BRANCH IF THREE NOT DONE 
10444 031234 O12777 oO03000 iS2bee MOV sBFEVEN, JRHBA ;SET 8 US ADDRESS TO START 
1044s OM aR EVEN WORD BOUNDAF 
10446 O31242 012777 177766 152612 MOV 8-10. , JRHWC ; WORD COUNT TEN 
10447 031250 OS2777 OOOOIG 152612 BIS sBAI,aRHCSe .SET BAI’ IN RHCSe 
10446 O031e56 O04077 153356 SSR AG. aCOMNG :GO 79 DO_COMMANE 
10449 Oslebe 504154 WRIDAT :WRITE DATA 
10450 
10451 
10452 “CHECK THAT RHCS3 HAS O 
10453 031264 012737 oo9000 901124 MOV #0, SGODAT :GET GOOD = O 
1045S 031272 017737 152634 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
10456 021300 023737 001124 O0i126 CMP $GDDAT;S$BDDAT COMPARE EXPECTED 
10457 :DATA WITH DATA READ FROM 
10458 HCS3 
10459 031306 001401 BEO bss ? BRANCH IF GOOD 
10466 021210 104124 ERROR 124 
10461 ;AFTER SETTING “CLR” BIT #5 
10462 ; IN N RHCSe TO INIT THE RH 
10463 !A TEN WORD WRITE FROM AN 
10464 :EVEN WORD BOUNDARY WAS DONE 
10465 suit BAI IN RHCSe SET 
10467 RHCS3 SHOULD HAVE O 
10463 i RHC CONTAINED WHAT IS 
19463 :GIVEN IN BAD RHCS2 
10470 031312 6S$: 
10471 O313le o4%2777 OD0076 1S2s40 BIC #76, 9RHCS1 CLEAR FUNCTION BITS 
10472 -CHECK THAT RHCS1 HAS Rot! 
10473 031320 012737 ocO4200 o01124 MOV sRDY!DVA, SGDDAT ary * 5000 = 4200 
152526 001126 MOV JRHCS1,SBDDAT  ;READ RHCS1 FOR COMPARISON 
601ie4 OOli2e CMP S$GDDAT;$B8DDAT :COMPARE EXPECTE 
sare METR DATA READ FROM 
67% :BRANCH IF GOOD 


BEG 
ERROR les 
;AFTER SETTING voLR" BIT aS 
tIN RHC I HE 
‘EVEN WORD BOUNDARY WAS DONE 
t:WITH BAI IN RHCS2 SET 
:RHCS1 SHOULD HAVE RDY!DVA 
> 24200 
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CERHAD.Fil 21-DEC-77 12:48 Tuy TEST DBL (RHCS3 BIT #10) TEST E 
104@9 ;BUT CONTAINED WHAT IS 
10490 GIVEN IN BAD RHCS1 
10491 631346 67S: nae . om 
{Bias 031346 012737 cOO110 GCllie4 Aste ofA: BH §cbBar BPS GOOD = 110 
ee 031354 053737 oOOSO1I0 O01ie4 BIS UNIT, SGDDAT : INCLUDE UNIT NUMBER 
104 
104 1 017737 152502 O01126 MOV JRHCS2, SBDDAT RHCS2 FOR COMPARISON 
ipigs Pgisbe Saccae aReegs §BeTise CMP SeobaT seppat ‘COMPARE EXPECTED 
10438 iRucga DATA READ FROM 
1 
isso, 81208 PRUE EEdon 122 eons hes 
a T LR” BIT as 
tBeRs A Bnces Te Ent f THE Ar 
ipeos i a TEN ORD BOUNDARY WAS DONE 
1 
10506 ith Bat IN Hees SET 
10808 ‘RHE go SHOULD HAVE IR!BAI 
10510 TOGETHER WITH UNIT NUMBER 
10511 :BUT CONTAINED WHAT IS 
10Sie :GIVEN IN BAD riices 
10513 021402 69S: 
10514 CHECK THAT RHWC has 0 
10515 O21402 012737 o00000 001124 Ov #0, 3GDDAT ;GET GOOD = 0 
10517 031410 O17737 152446 001126 MOV SRHWC , SBDDAT READ RHWC FOR COMPARISON 
10518 O314i6 923737 001124 OO011e6 CMP $GDDAt, SBDDAT ; COMPARE EXPEC 
10543 DAT WITH DATA READ FROM 
10S21 oO31424 901401 BEQ 71% : BRANCH IF GOOD 
10See O31426 104131 ERROR 131 
10523 ;AFTER SETTING “CLR” BIT #5 
10524 ; IN N RHCSe TO INIT Tie RH 
10Se5 :A TEN WORD, WRITE M AN 
12526 [EVEN WORD B OUNDERY ue nas DONE 
1 ;W1 H BAI IN 
1052e THEN 
10529 * RHW WC SHOULD HAVE 
10530 :BUT CONTAINED Mo Is 
10531 :GIVEN IN BAD RHWC 
10532 9031420 718: 
10533 
10534 
10535 
i0S36 ' [sesennnennenahesegeseeseressetesEseesenpessagssnengenanneneenen 
these i STEST i TEST DBL (RHCS3 BIT #10) TEST F 
3 
10533 * CLEAR 1. SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT aS) 
10540 ;* SET ale. f A ELEVEN WORD WRITE FROM AN OOD WORD /BOUNDARY 
10541 ;* D0 a ELEVE N WORD WRITE FROM AN ODD WORD BOUNDAR 
10542 :* THIS SHOULD SET RHCS3 BIT #10 DBL 
10543 :# CHECK RHCS3 
10S44 :# CHECK RHCS1,RHCS2,RHBA, RHBAE , RHWC 
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TEST NBL (RHCS3 BIT #10) TEST F 


+ SPSSSFSSSRESSASS SSA SSS ESSE SSSSSSS HFSS FSSSFSSSHSHS FSS SHHES THRESH S 


térus: 


1$: 


6S$: 


SCOPE 
Mov Bae Sate re i BESET red? Kumeer 
JSR —s- PC, w@CLDISK ;GIVE RH INITIALIZE 
ETP Bic BNBCFUNCTION BITS IN PHOS: 
SET UP FOR A ELEVEN WORD WRITE EROM_ AN ODD WORD BOUNDARY 


MOV BBROOD , R2 Stet Thee WORD prreR 
MOV BS2525, (R2)+ HOVE | PiREES 5e58 si omc BUFFER 


BNE 1$ oR RAN cH IF THREE NOT DONE 


MOV #BF ODD, JRHBA T BUS ADDRES START 
—— + PROMO AN 5 BBBRE 3208 BOUNDARY 
MOV #-11.,3RHWC :WORD count T ELEVEN 
JSR RO, JICOMND 6 DO COMMAND 
WRIDAT i GRITE DATA 
“CHECK THAT RHCS3 HAS DBL 
MOV #ODBL , SGODAT ;GET GOOD = 2000 
MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP S$GDDAT;$BDDAT :COMPARE EXPECTED 
;0A Ate WITH DATA READ FROM 
6S$ BRANCH IF GOOD 


BEQ 
ERROR 1e4 
;AFTER SETTING mw of aS 
5 IN RHCSe TO ‘yt HE R 
A ELEVEN WORD WRITE FROM AN 
ODD WORD BOUNDARY WAS DONE 


THEN 
:RHCS3 SHOULD HAVE DBL 


BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


BIC #76, dRHCS1 ;CLEAR FUNCTION BITS 
CHECK THAT'RHCS1 HAS R 

hov #RDY! DVA, SGDDAT GET GOOD = 4200 
MOV @JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GODAT:/S$BDDAT ;COMPARE EXPECTED 

!DATA WITH DATA READ FROM 
BEG 673 BUCS A IF GOOD 
ERROR 125 


;AFTER SETTING “CLR” BIT 8S 
:IN_RHCSe TO INIT THE RH 
tA ELEVEN WORD WRITE FROM AN 


ow 


c MACY 0: i046: i-DEC-77 13:0 — 200 
I Ses lata oT ba he Sy FEST DBL (RHCS3 BIT #10) TEST F 


10601 : 900 WORD BOUNDARY WAS DONE 
1 pens RHEL SHOULD HAVE RPDY!DVA 
O4 
ipee ‘BUT CONTAINED WHAT IS 
10606 :GIVEN IN BAD RHCSi 
10607 031574 67S: 
1Be 58 031574 012737 900100 001124 sve tr ScopaT “2 ;GET GOOD = 100 
( é€ 
10610 031602 053737 oOO0S010 O011e4 BIS NTT. $GODAT : INCLUDE UNIT NUMBER 
10612 031610 017737 152254 001126 MOV JRHCS2,$BODAT  ;READ RHCS2 FOR. COMPARISON 
10613 O31616 023737 O0112e4 O01ie6 CMP $GDDAT, SBCODAT ; COMPARE EXPECT 
10614 :DATA WITH DATAS READ FROM 
10615 : RHC G2 
10616 031624 001401 BEO 69S :BRANCH IF GOOD 
10617 O316e6 104126 ERROR i126 ya 
10618 ;AFTER SETTING “CLR” BIT aS 
10619 i IN RHCS2 TO INIT THE RH 
10620 A ELEVEN WORD WRITE FROM AN 
106e3 5900 WORD BOUNDARY WAS DONE 
c 
10623 iRHCS2 SHOULD HAVE IR 
10625 ‘TOGETHER WITH UNIT NUMBER 
10626 :BUT CONTAINED WHAT IS 
10627 :GIVEN IN BAD RHCS2 
10628 021630 69S: 
10629 -CHECK THAT RHWC Wes s) 
10630 031630 012737 oo00000 o01124 MOV #0, SGODAT ;GET GOOD = O 
10632 031636 017737 1S2220 oO01126 MOV @JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
19633 O31644 023737 OO1ie4% OOl1c6 CMP $GODAT, SBDDAT ; COMPARE EXPECT 
10634 :DATA WITH DATA READ FROM 
10635 : RHWC 
10636 O316Se 901401 BEG 718 ‘BRANCH IF GOOD 
10637 O31654 194131 ERROR 131 
19638 ;AFTER SETTING soLR" BIT Be 
106393 ;IN_RHCS2 TO INIT THE R 
10640 ;A ELEVEN WORD WRITE FROM AN 
iheas ; 000 Horo BOUNDARY WAS DONE 
10643  RHU C SHOULD HAVE O 
10644 :BUT CONTAINED WHAT IS 
1064S :GIVEN IN BAD RHWC 
10646 O31656 71S: 
10647 
10648 
10649 
10650 
O&Si + EREEREREEE ELSES ERESRE REESE SRE REESE RARER ERASERS SAK HR ERSES VRE LES 
Deas tkTEST he TEST DBL (RHCS3 BIT #10) TEST G 
O6S4 :* CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
9655 ;# SET UP FOR A NINE WORD READ FROM AN EVEN WORD BOUNDARY 
OESE # 00 A NINE WORD READ FROM AN EVEN WORD BOUNDARY 
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000 QO000 on 
WWW WWWW WW 
— he oe he babe 
NNN NNNN NO 
WWM eee 
OMe OL 


O31766 
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ocoo04 
012706 
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012737 
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023737 


001401 
104%ie4 


042777 
012737 
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900046 


040306 


000003 
003066 


OSeSes 


003000 


177767 
1$2702 


000600 


152160 
001ie4 


000076 
004200 


1S20Se2 
O01ie4 


004656 


152140 
152130 


001124 


001126 
001126 


152064 
00i12e4 


001126 
OO011le&b 
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Tr DBL (RHCS3 BIT #id) TEST G 


THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
CHECK RHCS3 
CHECK RHCS1,RHCC2, RHGA, RHBAE , RHWC 


- SSSSSFSSSSLESSSSRSEL SHOES SSSASFSSSSLESSSSSSSS SE SSSA ESHA SEP SSH SES 


bérue: 


1$: 


6S$: 


SCOPE 

MOV aSTHCK,SP ;RESET STA 

MOV #46, JeTSTNM : SAVE rest NUMBER 
JSR PC, JeCLDISK ;GIVE RH INITIALIZE 


: SETUP UNIT NUBER 
CLEAR RHWC AND FUNCTION GITS IN PHOS) 


»SET UP FOR A NINE WORD 00 FROM AN EVEN WORD BNUNDAP: 

MOV #3,R1 ; COUNT OF THREE 

MOV sBFEVEN, R2 ; START an MBEE WORD BUFFER 
:FROM AN EVEN WORD BOUNDAR 

MOV BS2S2S, (R2)+ jMOVE THREE S2S525 INTO BUFFER 


iC 
BNE 1$ ‘RANCH IF THREE NOT DONE 


MOV SBFEVEN,ORHBA :SET ous ADDRESS TO START 
‘FROM AN EVEN WORD BOUNDARY 
MOV 8-9. ,ORHWC ; WORD COUNT NINE 
IS RO, ICOMAD :GO TO D0. COMMAND 
READAT :READ DAT 
:CHECK THAT RHCS3 HAS O 
MOV #0, SGDDAT ;GET GOOD = 0 
MOV DRHCS3,$B8DDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GODAT: $BDDAT ; COMPARE EXPECTED 
;DAT ar a, WITH DATA READ FROM 
BEG 65S : BRANCH IF GOOD 
ERROR 124 
;AFTER SETTING ToL R” BIT #5 
:IN RHCS2 TO INIT THE RH 
:A@ NINE WORD READ FROM 
iFNEN WORD BOUNDARY WAS MOONE 
RHCS3 SHOULD HAVE 0 
i BuT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 
BIC 876, 9RHCS1 ;CLEAR FUNCTION BITS 
:CHECK THAT RHCS1 HAS RDY!D 
MOV #ROY!DVA,S$GDDAT ;GET GOOD = 4200 
MOV DRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GODAT: SBDDAT i COMPARE EXPE 
:DR ATR WITH DATA READ FROM 
BEG 67% ; BRANCH IF GOOD 
ERROR 125 


;AFTER SETTING “CLR” BIT #5 


RHADO MACYI1 30.1046, 2i-DEC-77 13:06, PAGE 202 
KERHAB-PIl  2i-Dec-P> 15:48 ub «TEST OBL CRHCS3 BIT #10) TEST G 


¥ RHCSe TO INIT THE RH 

A NINE WORD RESD FROM An 
iEVEN WORD BOUND “RY WAS DONE 
jRHCS1 SHOULD HAVE RDY!DVA 


‘BU CONTAINED WHAT IS 
:GIVEN IN BAD RHCS1 


O32e02e 
ECK THAT RHCS2 HAS IR 


O3e022 2 #IR, SGODAT ;GET GOOD = 100 
032030 73? Untt. $GDDAT ; INCLUDE UNIT NUMBER 


eee LITE SENGET: EBERT EERBARECERREDHEGoMPAIS™” 
DATA WITH “DATA READ FRO? 


RH cse 
O3205e 0 BEO 69$ :BRANCH IF GOOD 
O3e6S4 104126 C 126 


WLW OLODNIONEW | 


be WORD BOUNDARY WAS DONE 
;RHCS2 SHOULD HAVE IR 


=100 
: TOGETHER WITH UNIT NUMBER 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCSE 


Ose0St 
as CHECK THAT RHWC HAS O 
032056 Cle73s7 oo00ccd 001124 hov #0, S$GDDAT ;GET GOOD = 0 


Q17737 181772 o01126 DRHWC , SBDDAT READ RHWC FOR. COMPARISON 
C6i1e4 OO1lce Cc $GODAT, SBODAT i COMPARE EXPECT 
DAT A WITH DATA READ FROM 


HWC 
: BRANCH IF GOOD 


4 Ad SETTING mw BIT aS 
N RHC THE "ae 


FROM 
:EVEN WORD BOUNDARY WAS “GONE 


;RHWC SHOULD HAVE O 
;BUT CONTAINED WHAT IS 
715 ;GIVEN IN BAD RHWC 


peeeeras eo eentgeerere rrr tte ata ee 
PSTEST 47 TEST OBL (RHCS3 BIT #10) TEST 


i* CLEAR THE SUBSYSTEM BY_A CONTROLLER CLEAR (RHCSe BIT ss) 
3 # SET UP FOR A TEN WORD READ FROM AN EVEN WORD BOUNDARY 
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ZERHAD. P11 21-DEC-77 12:48 Ty? TEST DBL (RHCS3 BIT #10) TEST H 

z ; O @ TEN WORD READ FROM AN EVEN WORD BOUNDARY 

jRs82 : ore EO Ute eT Races ort wi Det 

10771 33 CHECK RHCS3 

1077 ie CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

1 a5 IRI On a cee ate La 

1077S 032104 ooo004 T47: SCOPE 
o> 106 Ole? f MOV aSTACK, SP ;RESET STACK 

ag B35i9S Sissgs Bete Oe  powese MOV 847, aetSTNM !SAVE TEST NUMBER 

10% 

19778 032129 004737 oO40306 ISR PC, JUCLDISK ; GIVE RH INITIALIZE 

1B>8i :CLEAR RHWC AND FUNCTION BITS IN RHCSI 

10782 

[epg ciate Said 4367 UP FOR A TEN WORD READ FROM AN EVEN WORD BOUNDARY 
7 4 7 

1078S 032130 312702 003000 MOV SarEVEN, R2 :START THREE WORD BUFFER 

10786 :FROM AN EVEN WORD BOUNDARY 

10787 032134 012722 os2s25 13: mov ws252S, (R2)+ MOVE THREE S2525 INTO BUFFER 

Pe ETS BE como BE Hbveven,omen Ser ale Sodills 107 Fat 

7 > v 

10791 : nnd) syeegithas: FROM AN EVEN WORD BOUNDARY 

10792 oC321S2 012777 177766 151702 MOV #-10..dRHWC ;WORD cotnt TEN 

10793 032160 OO4077 1S24s4 JSR RO, ICOMND 80 16, 00 _ COMMAND 

10794 032164 604160 READAT 'READ DAT 

10795 

10796 

10797 “CHECK THAT RHCS3 HAS DBL 

19798 032166 012737 obe000 o01124 Mov #DBL , SGDDAT ;GET GOOD = 2000 

SSE: GGA02 GASH OBLTEE SRLS «=O RERGAY-EBRGHT sSenpamugy Eng, gommanzson 

teas CPee° te es ‘ iD RE TE DATA READ FROM 

10863 ences 

10804 032210 o0:401 BEG 65 :BRANCH IF GOOD 

1080S O32ci2 104124 ERROR 124 

10856 ;AFTER SETTING “CLR” BIT #5 

10807. iN RHCS2 10 INIT THE 3h 

10808 ° ;A TEN WORD READ FROM 

10805 ;EVEN WORD BOUNDARY WAS DONE 

10611 :RHCS3 SHOULD HAVE DBL 

10813 BUT CONTAINED WHAT IS 

10814 :GIVEN IN BAD RHCS3 

10815 o32214 65S: 

10816 O32214 O42777 000076 15:636 BIC 876, JRHCS1 ;CLEAR FUNCTION BITS 

10817 CHECK THAT’ RHCS1 HAS RDY!DVA 

10818 032222 012737 oOO4200 oD1124 hov #RDY!DVA,$GDDAT ;GET GOOD = 4200 

10820 932230 017737 151624 001126 MOV QRHCS1,$BD0AT — ;READ RHCS1_FOR COMPARISON 

10621 O32236 023737 001154 OOllse CMP $GDDAT’ SBDDAT i COMPARE EXPECTED 

i0B2e2 : OAT WITH DATA READ FROM 

10823 : enced 

10@24 o32244 901401 BEG 673 ‘BRANCH IF GOOD 


eee. MACY 11 30) 12%85 2i-DEC-77 id: a PAGE 204 ra 
CERHAD.F Li 2i-DEC-7? 12:48 47 TEST NBL (RHCS3 BIT #10) TEST H 


O32@e4e 104125 ERROR ies 
;AFTER SETTING “CLR” BIT aS 
;IN_RHCSe TO INIT bu, a 
:A TEN WORD READ FROM 
i EVEN WORD BOUNDARY Was “DONE 


:RHCS1 SHOULD HAVE RDY!DVA 


‘But CONTAINED WHAT IS 
:GIVEN IN BAD RHCS1 


032250 
: CHECK THAT RHCS2 HAS IR 
032256 012737 MOV $GODAT ;GET GOOD = 100 
053737 BIS gait? $GDDAT : INCLUDE unit NUMBER 


017737 MOV JRHCS2, SBODAT ;READ RHCS2 FOR COMPARIS( + 
923737 CMP $GDDAT., SBDDAT ; COMPARE EXPECTED 
;DAT A WITH DATA READ FROM 


RHCS2 
001401 EG 693 BRANCH IF GOOD 


104126 ERROR les 
;AFTER SETTING oF tu BIT aS 
1 RHCS2 THE ps 


ORD READ FROM A 
:EVEN WORD BOUNDARY WAS. ‘DONE 
sRHCS2 SHOULD HAVE IR 


: TOGETHER WITH UNIT NUMBER 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS2 


032304 
;CHECK THAT RHWC HAS 0 
032304 Oie737 900000 O0112e4 Mov #0, $GODAT ;GET GOOD = 0 


93@3i2@ O17737 151544 001126 MOV @ORHWC , SBODAT ;READ RHWC FOR _— 
023737 O0i1e4 001126 CMP $GODAT, SBDDAT ; COMPARE EXPECTED 
:DR TA WITH DATA READ FROM 


HWC 
71S : BRANCH IF GOOD 


BEG 
ERROR i3i 
; AFTER SeTTING ote BIT #5 
i IN ae 
A TEN W FR ROM 
MeN WORD BOUNDARY WAS DONE 


HWC SHOULD HAVE O 
But CONTAINED WHAT IS 
71g ;GIVEN IN BAD RHWC 
718: 


5p ER EEEE REE EERE EE SEAE EE EERE REESE PRE EE RARER EE FRASER ERA REE PEERED ES 
;#TEST SO TEST OBL ‘RHCS3 BIT #i0) TEST I 


i 
1 
1 
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1 
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i 
1 
1 
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i 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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Sie WCYhS Sci) “Bi-CRCT? ET UE Bn ce cies eee ee ee ee ee ee 
SERHAD LP It 2i-DEC-77 12:48 TSO TEST DBu (RHCS3 BIT #10) TEST I SEG C20 
:* CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT aS. 

ipeee :* SET UP FOR A TEN WORD READ FROM AN ODD WORD. BOUNDARY 
10883 :* D0 A TEN WORD READ FROM AN ODD WORD BOun DAR 
10884 :* THIS SHOULD NOT SET RHCS3 BIT #10 
10885 :# CHECK RHCS3 
10886 :# CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

a 
att +s PSESEFESSSEERERSASRESSAAEKSRSSSESSERSSSRSESSFSAESSSAFFFSHSSESPSEHSE 
10883 B3e334 Sierde 001000 HETSO: SCOPE op SRESET STA 
10831 032340 O1e737 OO000SO oOD4ES= MOV #50, aeTSTNM : SAVE Test NUMBER 
10893 032346 004737 040306 ISR PC, J#CLDISK ;GIVE RH INITIALIZE 
10894 :SETUP UNIT NUBER * 
10895 :CLEAR RHWC AND FUNCTION BITS IN RHCS! 
10896 
108S7 ;SET uP FOR r TEN WORD READ FROM AN ODD WORD BOUNDARY 
10898 032352 012701 900003 MOV ;COUNT OF THRE 
10899 032356 Ole702 00300e MOV sat oon, Re ;STAR T THREE WORD BUFFER. 
10900 FROM AN ODD WORD BOUNDAR 
10901 0323 Ole722e oSeses 18: MOV #52525, (R2)+ i MOVE THREE S2S2S INTO BUFFER 
10902 032366 005301 DEC RD COUNT 
10903 032370 001374 BNE 1$ : BRANCH If THREE NOT DONE 
10904 032372 012777 oO03002 151464 MOV #BF ODD, JRHBA :SET ees ADDRESS TO START 
10S05 FE AN ODD WORD BOUNDARY 
10906 O32490 012777 177766 1514S4 MOV #-10. aRHWC ;WORD count 
10967 032406 9004077 152226 JSR RO, ICOMND ;GO 16 "00. COMMAND 
10908 O32412 004160 READAT :READ DAT 
10909 
10910 
10911 -CHECK THAT RHCS3 HAS 0 
10312 C32414 012737 oof0000 001124 MOV #0, SGDDAT ;GET GOOD = O 
10914 oO232e422 017737 151504 o01126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
1091S 032430 023737 OO11e4 O01126 CMP $GDDAT , SBODAT ; COMPARE EXPECT 
10916 :DATA WITH DATA READ FROM 
10917 !RH neS3 
109i8 032436 001401 BEQ 6S$ :BRANCH IF GOOD 
10919 O32e440 104124 ERROR 124 
10920 ;AFTER SETTING “CLR” BIT 8S 
10921 :IN RHCSe TO INTT THE RH 
10922 :A TEN WORD READ FROM 
iRese 5 90D WORD BOUNDARY WAS MOONE 
10925  RHESS SHOULD HAVE 0 
10926 :BUT CONTAINED WHAT IS 
10927 :GIVEN IN BAD RHCS3 
10928 O32e442 653: 
10929 O32e442 042777 O00076 151410 BIC #76, 9RHCS1 CLEAR FUNCTION BITS 
10930 CHECK THAT RHCS1 -HAS RDY!DVA 
1033) 032450 912737 oOO4200 001124 hoy #RDY!'DVA,SGDDAT ;GET GOOD = 4200 
10933 032456 017737 151376 001126 MOV @RHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
10934 032464 0623737 001124 9001126 CMP $GDDAT; $BDDAT ; COMPARE EXPECT 
‘hese ;DATA . WITH DATA READ FROM 

s ‘ ;RHCS1 


K16 


CERH MACY11 30(10%—) 2i-DEC-77 13:06 PAGE 206 se eer, none 
ZERMAG SPT 2i-DEC-"? 12:48 SO TEST DBL ‘RHCS3 BIT #10) TEST I SEG C20 
10937 O386 00i4C1 BES 67$ ;BRANCH IF GOOD 
474 104 ERROR 125 
127° ited i ;FTER SETTING “CLAY BIT aS 
10940 oa RHCSe TO sat Ron 
10941 A_ TEN WORD READ F 
10942 £000 WORD BOUNDARY ROAS “DONE 
43 
iBaaa RHEL SHOULD HAVE RDY!DVA 
1094S 
10946 ‘But CONTAINED WHAT 7S 
10947 :GIVEN IN BAD RHCS1 
10948 032476 67S: 
tose0 032476 912737 000100 OOlie hove“ "rR ScoBAT % ;GET GOOD = 100 
1 7 127 1 1124 
1Paes 032504 083737 005010 O0ilie4 BIS UNIT. $GDDAT ; INCLUDE UNIT NUMBER 
S36) GREGG GAS73r AGITRG GRIIEE = ORESCBESSSE: EBERT :ESRBARERE SEE GmnPmezs™ 
f 
1pae> pe to Mei DATA READ FROM 
10956 
10987 O325e6 001401 BEG 69% :BRANCH IF GOOD 
10958 O03e530 id4le6 ERROR 126 an aeti 
10959 ;AFTER SETTING “CLR” BIT #s 
10960 i IN RHCSe TO INIT THE po 
10961 A_ TEN WORD READ FROM 
1096e ODD WORD BOUNDARY WAS "Sone 
10963 : THEN 
10964 ;RHCS2 SHOULD HAVE IR 
10965 Bs 
10966 :T0 OGETHER WITH UNTT NUMBER 
10967 :BUT CONTAINED WHAT IS 
10968 ;GIVEN IN BAD RHcSe 
10969 032532 69$: 
10970 ;CHECK THAT RHWC_HAS 0 
ined 032532 Ol1e737 oo000n O01124 Mov #0, SGDDAT ;GET GOOD = 0 
10973 032540 017737 151316 001126 MOV JRHWC , SBODAT ;READ RHWC FOR COMPARISON 
10974 O3eS46 623737 OOlieY OO1126 CMP $GDDAT, SBDDAT ; COMPARE EXPEC 
ipaoe ;DAT oe A WITH DATA READ FROM 
10977 032554 001401 BEQ 71% BRANCH IF GOOD 
10978 O3eSS& 104131 ERROR 131 
10979 44g + SETTING “CLR” BIT #5 
19980 ;INR HCSe TO INIT THE 
10981 ;A_ TEN WORD READ FROM 
3 $000 WORD BOUNDARY WAS *OONE 
i0984 ;RHWC SHOULD HAVE 0 
10985 ;BUT CONTAINED WHAT IS 
10986 :GIVEN IN BAD RHWC 
10987 032560 718: 
0988 
10989 
10990 
19991 5 EERE FRESE RE REEL EERE EE EEE E EEF LERPSEEEREREREL ESHER EERE SERRE EEE TEED 
10992 ;*#TEST 51 TEST OBL (RHCS3 BIT #10) TEST J 
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CERHAD. P11 2i-DEC-77 12:48 TS1 TEST DBL (RHCS3 BIT #10) TEST J Seo 0206 
i 33a :* cL EAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT aS. 
10995 :* TUE FOR A ELEVEN WORD REAL FROM AN EVEN WORD /BOUNDAR 

03996 :* DO A ELEVEN WORD READ FROM AN EVEN WORD BSOUNDAR 

10997 :* THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

10998 :# CHECK RHCS3 

10399 :# CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

5 + + SSSSSESSSSSSSRSSSSSSAASSSSASSSRSFRRSLSASSSSSFSRSSSSSASH HASH H HHH S 

peeeee oPoobe poi000 STS1: Roy eS TACK. SP RESET STACK 
032566 012737 OO00Si oco4¥Ese MOV se] ,aetSTNM SAVE TEST NUMBER 
032574 004737 040306 JSR PC, aaCLOISK :GIVE RH H INITIOL IZE 


‘aE EAR RHWC AND FUNCTION sITS IN FHCS1 
;SET UP . R_A ELEVEN —.. RE Fnod AN_EVEN WORD BOUNDARY 
35 : R BUNT OF THREE 


032600 012701 000003 MOV 
032604 012702 9003000 MOV SBtEVEN, Re START A WORD D BUFF ER ay 
032610 oO12722 oOSese5 1$: MOV #52525, (R2)+ ;MOVE T yeh eoe° INTO BUFFER 
032614 005301 DEC R1 : COUN 
032616 001374 BNE 1$ :BR LNCH IF THREE NOT DONE 
032620 012777 003000 151236 MOV SBFEVEN,SRHBA ;SET BUS ADDRESS TO START 

:FROM AN EVEN WORD BOUNDARY 
032626 012777 177765 151226 MOV #-11.,@3RHWC ;WORD COUNT gE VEN 
032634 004077 152000 JSR RO, ICOMND ;GO T 0.00. COMMAND 
032640 004160 READAT :READ DAT 

:CHECK THAT RHCS3 HAS O 

032642 012737 o00000 0101124 MOV #0, SGDDAT ;GET GOOD = 0 
032650 017737 151256 001126 MOV QRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
032656 023737 OO1]74 OOll2e6 CMP $GDDAT;$BDDAT j;COMPARE EXPECTED 

:D8 TQ WITH DATA READ FROM 
932664 001401 BEG 65S !BRANCH IF GOOD 
032666 id4124 ERROR 124 


ON RH SETTING “CLR” BIT #5 
RHCSe TO INIT THE RH 

A ELEVEN WORD READ FROM AN 

EVEN WORD BOUNDARY WAS DONE 


TH 

;RHCS3 SHOULD HAVE _O 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


EEE ELL LWW WWW WWI WWI GIT PUMP PUPUPU UT Mr br os 9 7" rgd 


se es be = ee os eb be ee es he bo be be be ho be ee ee he ee be ee 
Boat os 
ONO LSWMOWDONOU CW OWONO WCW OWONOUM SWUM OOOO LW 


b= ee Be ee ms ee ee Be es Be be bn bo ee Be sn be be Bs ee ee Be ne ae ee bn ee ae ee ee a ee bs ee ee 
YOO VOVDOVQVOVO OOOO OOOH VOOVOOVOOVOOOVONDVDOVONDVVOOOOVOOVO0O0OVO00000 


032670 653: 

032670 042777 oO00076 151162 BIC 876, 9RHCS1 CLEAR FUNCTION BITS 
CHECK THAT RHCS1 HAS RDY'DV 

032676 012737 oO4200 o01124 hov #RDY!DVA, SCObAT GET * E000 = 4200 

032704 017737 151150 001126 MOV DRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 

032712 023737 001124 O01126 CMP $GDDAT; $BDDAT : COMPARE EXPECT 


£0 
:DATA WITH DATA READ FRO 
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“Pil =D EST DBL (RHCS3 BIT #10) Tost J 
7 RH 
1480 ? BEG 673 ‘BREACH IF GOOD 
iitsé 032720 001401 | 
11081 O3e72e 104125 ERROR 125 or tga SETTING, “cLRY apy #8 
1153 Ae OG a 
11083 ie ELE EAD HE RON AN 
110es ;EVEN WORD BOUNDARY WAS DONE 
11828 :RHCS1 SHOULD HAVE RDY!DVA 
11088 BUF CONTAINED MWAT 1S 
tt Ea iBT Cont BAB RH 
i 27. 7S: 
11062 aia . AECK TWAT RHCS2 HAS IR og 
032724 012737 900100 001124 
11064 032732 063737 OOS010 O01124 BIS oat SecpaT PINCLUCE UNIT a 
ti BODAT  ;READ RHCS2 FOR COMP 
11066 032740 017737 151124 of1126 MOV DRHCS2, $ 
11067 032746 Oe3737 001184 oDLlee CMP $GODAT. $BDDAT igetaratrn oat eye 
HC 
{1888 032754 oo14OL BEG 69S BRANCH IF GOOD 
11071 03275 104126 ERROR 126 JAETER SETTING “CLR™ 81 45 
id RHCSO 
11073 S ORD READ EROM AN 
11bSe fire Boel WAS DONE 
tines RHES2 SHOULD HAVE IR 
Libre even wim uutt nureer 
T TA Wi 
tibet 5 RYT CONTAINED, MAT 
11082 032760 69S: 
“CHECK THAT RHWC HAS 0 3 
11065 032760 012737 oD0000 001124 hov 80, SGDDAT :GET GOOD = 0 
ti AD RHWC FOR COMPARISON 
11086 032766 017737 151070 001126 Mov DRHWC,SBDDAT _—; RE 
11087 032774 023737 001124 001126 CMP $GDDAt, SBODAT ‘Sava uiTe PECTED ao FROM 
HbiC 
tibse 033002 091401 BEG 718 ‘BRANCH IF GOOD 
ie ne ee —— {AFTER SETTING “CLA” BIT 95 
1182s i AN REG N WORD a AN 
1183¢ Eh WORD BOUNDARY WAS DONE 
tipes C SHOU 
11832 i BHWC BNTATNED LAT IS 
tioss GIVEN IN BAD RHWC 
11100 933006 713: 
11101 
1110¢ 
itiba s 5 EFF ERESAE EE ESA SAS SESE SSASESSAEE RESALE SESSLER EASA HEHE ESAS SA ERS 


BOl 
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SERHAD.F i 2:-DEC-77 12:48 TS2 TEST DBL (RHCS3 BIT #10) TEST K s&o Oe08 
$1105 ;#TEST S2 TEST DBL (RHCS3 BIT #10) TEST Kk 

lil 

11107 :* CLEAR THE SUBSYSTEM By A CONTROLLER CLEAR (RHCS2 BIT aS) 
11108 :* SET que FOR A ELEVEN WORD READ FROM AN ODD WORD /BOUNDAR 
11109 ;* DO A ELEVEN WORD READ FROM AN OOD WORD BOUNDAR 

11110 ;# THIS SHOULD SET RHCS3 BIT #10 DBL 

Lilii ;* CHECK RHCS3 

Liile Ls CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

11114 + SSSERKESSSSSESAEEESSERES EA SSAREEAKSRASESSSSLSAFLES ESAS SS ESSE SSS 
1111S 033006 o00004 té152: SCOPE 

11116 033010 Ole706 001000 MOV eSTACK, SP ;RESET STACK 

11112 033014 012737 o000S2 oo04656 MOV #52, a8tSTNM :SAVE TEST NUMBER 

11119 033022 004737 oO40306 JSR PC, J@CLUISK ;GIVE RH INITIALIZE 

i1120 ge Tue YU UNIT NUB 

1iie1 CLEAR RHWC AND FUNCTION BITS IN RHCSi 
11123 :-SET UP FOR A ELEVEN WORD READ FROM AN ODD WORD BOUNDARY 
11124 033026 012701 000003 MOV #3,R1 T OF THREE 

11125 033032 Ole70e 903002 MOV sBF ODD, R2 i START THREE WORD BUFFER. 

11126 ROM AN ODD WORD BOUNDAR 

11127 033036 Ol1e722 OSeses 1$: MOV #eS2S5e5, (R2)+ ; MOVE THREE S2S25 INTO BUFFER 
11128 033042 005301 DEC R1 UNT 

11129 033044 001374 BNE 1$ BRANCH IF THREE NOT DONE 

11130 033046 012777 oOO3002 151010 MOV #8F O00, JRHBA :SET BUS ADDRESS TO START 

11131 ‘FROM AN ODD WORD BOUNDARY 
11132 033054 012777 177765 151000 MOV # @JRHWC ; WORD COUNT ELEVEN 

11133 033062 004077 151552 JSR 118° JCOMND GO TO 00 COMMAND 

Ai ios 033066 OO04i60 READAT :READ DAT 

11136 

11137 -CHECK THAT RHCS3 HAS ™. 

11138 033070 012737 o02000 001124 MOV #OBL , SGODAT GET GOOD = 2000 

11140 033076 017737 151030 001126 MOV JRHCS3,S8DDAT  ;READ RHCS3 FOR COMPARISON 
11141 033104 023737 OO011e4 0O01126 CMP $GODAT: $BDDAT ; COMPARE EXPECTED 

iss DAT @MITH DATA READ FROM 

11144 033112 oO01401 BEG 6S$ : BRANCH IF GOOD 

11145 033114 104124 ERROR 124 

11146 ;AFTER SETTING 7 gt Re BIT aS 
11147 ; IN RHCSe TO INIT THE R 

11148 A ELEVEN WORD READ FROM AN 
11149 00D WORD BOUNDARY WAS DONE 
11150 : THEN 

sties ;RHCS3 SHOULD HAVE DBL 

oe 

11153 BUT CONTAINED WHAT IS 

11154 :GIVEN IN BAD RHCS3 

1115S 033116 65S: 

11156 033116 0642777 oOO0076 150734 BIC #76, RHCS1 CLEAR FUNCTION BITS 

11157 "CHECK THAT RHCS1 HAS RDY! 

11138 033124 012737 oo4200 001124 Mov #RDY!DVA, SGDDAT ‘GET RG00p = 4200 

11160 033122 017737 180722 o01126 MOV @RHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 


COl 


CERMADO MACY11 30:i046) 2i-DEC-77 13:06 PAGE 210 


CERHAD.P Li 21-DEC-77 12:48 752 TEST DBL (RHCS3 BIT #10) TEST K SEG 0203 
40 023737 O01124 091126 CMP $GDDAT,SBDDAT ;COMPARE EXPECTED 

iite3 ape REG WITH DATA READ FROM 
11163 : BRERA 

Lito 14 140 67 ; H IF GOOD 

tiies S38ick PB47B2 FRfor 758 i . 
13166 ;AFTER SETTING “CLR” BIT #5 
11167 : JN HCe¢ T0 INET THE RH 
ills !A ELEVEN WORD READ FROM AN 
11169 :00D WORD BOUNDARY WAS DONE 
itis !RHCS1 SHOULD HAVE RDY!DVA 
iss + BUT CONTA NED WHAT IS 

1113 ; 

11174 BY VEN IN ba6 RHCS1 

11175 033152 678: 

tise 033152 2737 900100 oO11e2 hove “air scobaT oa GET GOOD = 100 

11177 1 012737 1 o11e4 b ; = 

11178 033160 053737 O0S50i0 oOl1e4 BIS UNI t , $GODAT INCLUDE UNIT NUMBER 

Hig? QBBISG GAUCHE ABDHZE OBIE Cs BESSA SESERT 1 CEABAAEE AEE GOrPARISO 
11182 :DATA WITH DATA READ FROM 
11183 ;RHCS2 

11184 033202 001401 BEQ 69$ ;BRANCH IF GOOD 

11185 033204 104126 ERROR 126 

11186 ; AFTER SETTING “CLR” BIT #5 
11187 :IN RHCSe TO INIT THE RH 
11188 !A ELEVEN WORD READ FROM AN 
11189 :0DD WORD BOUNDARY WAS DONE 
11190 ; THEN 

11131 :RHCS2 SHOULD HAVE IR 

11193 : TOGETHER WITH UNIT NUMBER 
11194 :BUT CONTAINED WHAT IS 
11195 :GIVEN IN BAD RHCS2 

11196 023206 69S: 

11197 -CHECK THAT RHWC_HAS O 

11138 033206 012737 oncoo00 001124 MOV #0, SGDDAT ;GET GOOD = O 

11200 033214 017737 150642 o01126 MOV JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
11201 033222 023737 O01i24 O01126 CMP $GDDAT, SBDDAT ; COMPARE EXPECTED 

11202 :DATA WITH DATA READ FROM 
11203 : RHWC 

11204 033230 001401 BEG 71% :;BRANCH IF GOOD 

11205 033232 104131 ERROR !31 

11206 ;AFTER SETTING “CLR” BIT #5 
11207 ;IN RHCS2 TO INIT THE RH 
i1208 tA ELEVEN WORD READ FROM AN 
1ist8 ;00D WORD BOUNDARY WAS DONE 
llell :RHWC SHOULD HAVE 0 

llele ;BUT CONTAINED WHAT IS 
46+ Gee :GIVEN IN BAD RHWC 

11214 033234 Tid: 

1leis 

lieiéb 


u 
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Pil 21-DEC- 12:48 Se TEST DBL (RHCS3 BIT #10) TEST K 


= PESSESSSESSESSESSESKSSKRSE SEARS SHAS EESHSASSKRSSSHSF FSFE SHSSS SH SHLFHDS 
:kTEST 53 TEST OBL (RHCS3 BIT #10) TEST L 


AR_THE SUBSYSTEM BY A CONTROL ER CLEAR (RHC a 
Set _* ‘ ina TER HORE R = MS sat IN EVEN WORD SSUNBAR ARY 


. S) 
* 

+ 

+ bo A 8 TEN EAp FROM ane EVEN WORD BOUNDARY 

* 

* 

> 


Hal $ & eg RHCS3 BIT #10 DBL 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
- LELEREEEEEERAAE SEES ELLE LE SESE EELS LEELA SEES EEE ESE EEE EEE SEES 


033234 900004 $6153: SCOPE 

033236 012706 001000 MOV aSTACK,SP ;RESET STACK 

O033e42 012737 O000S3 co4Ese MOV #53, a8tSTNM :SAVE TEST NUMBER 
032250 004737 oO40306 ISR PC, asCLDISK ;GIVE RH INITIALIZE 


;SETUP UNIT NUBER 
:CLEAR RHWC AND FUNCTION BITS IN RHCS1 


;SET UP Ag A TEN WORD READ Arne th Even WORD BOUNDARY 


033254 912701 oD00003 MOV Ri HRE 
033260 Ole702 9003000 MOV SatEVEN, Re : START an MBEE WORD BUFFER 
:FROM AN EVEN D BOUNDARY 
033264 012722 oS2525 18: MOV 852525, (R2)+ ; MOVE THREE Roses, INTO BUFFER 
O33e70 005301 DEC Ri UNT 
033272 001374 BNE 1$ BRANCH IF THREE NOT DONE 
033274 012777 o03000 150562 MOV SBFEVEN,JRHBA ;SET BUS ADDRESS TO START 
: FROM m_AN EVEN WORD BOUNDARY’ 
033302 012777 177766 150552 MOV #-10.,3RHWC ;WORD COUNT TEN 
033310 052777 O000i0 150552 BIS sBAI SRHCSS -SET BAI’ IN RHCS2 
033216 004077 151316 $SR AO. SCOMND ;GO TO 00. COMMAND 
033322 004160 READAT :READ DAT 
»CHECK THAT RHCS3 HAS O 
033324 012737 oo0000 o01124 MOV #0, SGDDAT ;GET GOOD = 0 
033232 017737 150574 oO01126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
033340 023737 901124 001126 CMP $GDDAT;S$BODAT ;COMPARE EXPECTE 
are TH DATA READ FROM 
032346 001401 BEG 65% :BRANCH IF GOOD 
633350 id412e4 ERROR 124 
;AFTER SETTING “CLR” BIT #5 
:IN RHCSe TO INIT THE RH 
:A TEN WORD READ F AN 
EVEN WORD BOUNDARY WAS DONE 
sWIT H BAI IN RHCSe SET 
*RHCS3 SHOULD HAVE 0 
5 eae Mal Li eR 
932352 : 653: 
63332 042777 oo007— 150500 BIC 876, JRHCS1 ;CLEAR FUNCTION BITS 
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033360 
033366 
033374 


03340e 
033404 


033406 


033406 
033414 


033422 
633430 


0323436 
033440 


033442 
033442 
033450 
033456 


033464 
033466 


-77 


012737 


023737 


001401 
194125 


012737 


017737 
023737 
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004200 001124 


iso466 001126 
O0iie4 OClletb 


000110 00 
o0s010 00 
1sG44e OO 
061124 O0 


oo0c000 O00i1e4 


150406 001126 
0011e4% OO011e6 


67$: 


69$: 


EO] 


TEST DBL (RHCS3S BIT #10) TEST L 
;CHECK THAT RHCS1 HAS RDY!DVA 


MOV @RDY!DVA,SGODAT ;GET GOOD = 4200 
MOV JRHCS1,3BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GODAT;S$BDDAT :COMPARE EXPECTED 
DR TQ WITH DATA READ FROM 
BEG 673 :BRANCH IF GOOD 
ERROR 1es 
;AFTER SETTING “CLR” BiT #5 
:IN RHCS2 TO INIT THE RH 
:A TEN WORD READ FROM AN 
EVEN WORD BOUNDARY WAS DONE 
WITH H BAI IN RHCSe SET 
: RHCS1 SHOULD HAVE RDY!D\.« 
‘BUT CONTAINED WHAT IS 
:GIVEN IN SAD RHCS1 
»CHECK THAT RHCS2 HAS IR!BAI 
Mov RIR!BAI,S$GDDAT ;GET GOOD = 110 
BIS UNIT. SaDRT ! INCLUDE UNIT NUMBER 
MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP $GDDAT.$BDDAT ;COMPARE EXPECT 
Dare Wite DATA READ FROM 
BEG 69S :BRANCH IF GOOD 
ERROR i26 
;AFTER SETTING “CLR” BIT aS 
:IN RHCSe TO INIT THE RH 
3A TEN READ 
tEVEN WORD BOUNDARY WAS DONE 
sWITH BAI IN RHCSe SET 
: RHCSe SHOULD HAVE IR!BAI 
TOGETHER WITH UNIT NUMBER 
:BUT CONTAINED W Is 
:GIVEN IN BAD rtices 
:CHECK THAT RHWC HAS O 
MOV #0, SGDDAT ;GET GOOD = 0 
MOV JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
CMP $GDDAt, SBDDAT ; COMPARE EXPECTED 
1M, ara WITH DATA READ FROM 
BEQ 718 :BRANCH IF GOOD 
ERROR 131 


;AFTER SETTING fa BIT #S 
i IN RHCSe TO i il HE RH 

i8 TEN WORD READ FROM AN 
;EVEN WORD BOUNDARY WAS DONE 
:WITH BAI IN RHCSe SET 
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~ 


; THEN 

;RHWC SHOULD HAVE O 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHWC 


Ww 
~ 


WWWWWW) 


5p RE ERRERERERERA EEE EERE EERE SELES EE EEEAEEA ESSE SES SEER REESE EEE EE EE 
;*TEST S4 TEST DBL (RHCS3 BIT #10) TEST M 


:* CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) me 
;* SET UP FOR A ONE WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
;* DO A ONE WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 

;* THIS SHOULD NOT SET RHCS3 BIT #10 OBL 
:* 

> 


. 


CHECK RHCS3 
3 CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


+ SEFSSEEREAEREASSERASSSESSRESSELALASLFKSLASSFRASSSSAFLS SSAA FFAS 
033470 o00004 +STS4: SCOPE 
933472 012706 001000 MOV aSTACK, SP ;RESET_STACK 
033476 612737 OO0OS4 ooD4ESe MOV 054, JeTSTNM ;SAVE TEST NUMBER 


033504 040306 PC, d#CLOISK ;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 
;CLEAR RHWC AND FUNCTION BITS IN RHCSI 


FOR_A ONE WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
033510 000003 ;COUNT OF THREE 


#3,R1 U 
033514 003000 aBFEVEN, R2 ;START THREE WORD BUFFER 
;FROM AN EVEN WORD BOUNDARY 
033520 7 OS2SeS : SpSsee, ee a S2S2eS INTO BUFFER 
: 1$ ;BRANCH IF THREE NOT DONE 
033530 003000 150326 #BFEVEN, JRHBA ;SET BUS ADDRESS TO START 
;FROM AN EVEN WORD BOUNDARY 
033536 177777 =iS0316 #-1,9RHWC ;WORD COUNT ONE 
033544 151070 JSR RO, JCOMND ;GO TO DO COMMAND 
033550 oO04204 REVWRT ;REVERSEWRITE DATA 


G0) GI 0) G9 GG) WY) GIG) GIGI) GI IW) GW) WW ZW) GI) GI GIG) GIG) GI GI Gd Gd Gd 
DO GOUT EU O00 VUE Wie Owed IOUT LE Care i] 


oe en Clu bara toon 


-_ 


;CHECK THAT RHCS3 HAS 0 
O0335Se 012737 oo0000 001124 Mov #0, SGDDAT ;GET GOOD = 0 


033560 017737 150346 001126 MOV @RHCS3, SBDDAT ;READ RHCS3 FOR COMPARISON 
033566 023737 Of1124 O01126 CMP $GDDAT , SBDDAT ; COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


;RHCS3 
033574 001401 BEG 6s$ ;BRANCH IF GOOD 


033576 104124 ERROR 124 

;AFTER SETTING “CLR” BIT #S 

s IN RHCS2 TO INIT THE RH 
:A ONE WORD WRITE REVERSE FROM AN 
a WORD BOUNDARY WAS DONE 


OO YS lott son bb Bene 
LW + OWONOM SW OWONOTM LW 


i 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
i 
i 
1 
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11385 ;RHCS3 SHOULD HAVE O 
11386 ;BUT CONTAINED WHAT IS 
1138" a a :GIVEN IN BAD RHCS3 
il $ 
11388 533630 ouerr? cooorve iscase BIC #76, 9RHCS1 jSLEAR FUNCTION BITS 
11390 jCHECK THAT RHCSI HAS SCIRDY!DVA 
11331 033606 012737 104200 901124 are #SC:RDY!DVA, SGDDAT ;GET GOOD = 104200 
11393 033614 017737 150240 091126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
11394 033622 623737 OO112e4 O6:136 CMP $GDDAT: SBDDAT i COMPARE EXPECTED 
11395 :DAT Q WITH DATA READ FROM 
11397 032620 001401 BEQ 673 ‘BRANCH IF GOOD 
11338 033632 104i25 ERROR 1es 
1139 Oe TER SETTING "CLR" BIT a5 
11400 N RHCS2 TO INIT THE R 
11491 ANNE HORD WRITE REVERSE FROM An 
1140¢ EVEN WORD BOUNDARY WAS DONE 
11498 RCS SHOULD HAVE SC!RDY!DVA 
11406 ;BUT CONTAINED WHAT IS 
11407 :GIVEN IN BAD RHCS 
11408 033634 675: 
11403 CHECK THAT RHCS2 HAS IR!OR 
11410 033634 012737 000300 001124 hov SIR!OR,SGDDAT  ;GET GOOD = 300 
1i4ii 033642 053737 005010 o0l1e4 BIS UNIT, SSODAT ; INCLUDE UNIT NUMBER 

c 
11413 033650 017737 150214 o01126 MOV QRHCS2,$BODAT —; READ RHCS2_FOR COMPARISON 
11414 033666 023737 O0i124 dOllze CMP $GDDAT;$BDOAT § ;COMPARE EXP 
Li4is i PATS WITH DATA READ FROM 
11417 933664 001491 BEQ 693 ;BRANCH IF GOOD 
11418 03366 104126 ERROR 126 
11419 ;AFTER SETTING "CLA" BIT #5 
11420 ;IN RHCS2 TO INIT THE R 
i421 ONE FORD WRITE REVERSE FROM an 
tivge ; EVEN WORD BOUNDARY WAS DONE 
11924 :RHCRe SHOULD HAVE IR!OR 
11426 TOGETHER WITH UNIT NUMBER 
ti4sa | aurcourei Prnces | 
11429 033670 69S: 
11430 CHECK THAT RHWC HAS 0 
is 033670 012737 o00000 901124 hov #0, SGODAT ;GET GOOD = 0 
11433 033676 017737 150160 o01126 MOV JRHWC,SBODAT = ;READ RHWC FOR COMPARISON 
11434 033704 023737 001124 OOlie6 CMP SGDDAT, SBDDAT ; COMPARE EXPECTED 
11435 sar ATA WITH DATA READ FROM 
11437 033712 00140: g ? ;BRANCH IF 
11438 033714 104131 PREOR iat Jame a Pe 
11439 ;AFTER SETTING "CLR" BIT #5 
1144¢ :IN RHCS2 TO INIT THE R 
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lis#4e 

1i443 

11444 

1144s 

1144 

11447 033716 

11448 

11449 

11450 

11451 

114Se 

11453 

114S4 

11455 

11456 

114S7 

11458 

114S9 

11460 

11461 

114%6e 033716 cO0004 
13463 033720 912706 
13464 033724 012737 
11465 

11466 033732 004737 
11467 

11468 

11469 

11470 

11471 033736 012701 
11472 033742 012702 
11473 

11474 033746 012722 
11475 03375e 005301 
11476 033754 001374 
yes 033756 012777 

é 

11479 033764 012777 
11480 033772 004077 
11481 033776 OO04204 
11482 

11483 

11484 

1148S 034060 012737 
11486 

11487 934006 017737 
11488 034014 023737 
114893 

11490 

1149} O340ee 001401 
1149e@ O0340e4 104124 
11492 

11494 

11495 

114S6 
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001000 
ooooss 


040306 


000003 
003000 


OS2Se5 


003000 


177776 
150642 


000000 


150120 
001124 


13:06 PAGE 215 
TS4 


HO 1 


TEST DBL (RHCS3 BIT #10) TEST M 
A ONE WORD WRITE REVERSE FROM Al 
EVEN WORD BOUNDARY WAS DONE 


Ri ¢ SHOULD HAVE 0 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


71$: 
+s EEFSSSRESSSESEREESKARSESERAAERKAASAESSSASEHSAAFSHESSSAESFSSSAE SSF ES 
$TEST 55 TEST DBL (RHCS3 BIT #10) TEST N 
* LEAR THE sys YSTEM m BY 8. A CONTROLLER CLEGR (RHCS2 BIT #5) 
:* que FOR A RSE FROM AN EVEN WORD BOUNDARY 
;# Bo TWO WORD WRITE GRRE VERSE FROM AN EVEN WORD BOL. iDARY 
:* pare SHOULD NOT SET RHCS3 BIT #10 DBL 
;# CHECK RHCS3 
: CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
FESS EKREKSKSESSEKSEAE SESSA KAKKAASREREKEREHRER FASS SS SSFHSSEHAELE TS 
¢é15s: SCOPE 
MOV aSTACK, SP ;RESET STACK - 
004656 MOV 85S, aatSTNM :SAVE TEST NUMBER 
JSR PC, J@CLDISK ;GIVE_ RH INITIALIZE 
:SETUP UNIT NUBE 
: CLEAR RHWC AND FUNCTION BITS IN RHCS1 
i367 UP FORA TWO WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
MOV SBtEVEN, RE :START T HREE WORD BUFFER 
:FROM AN EVEN WORD BOUNDARY 
1S: MOV #52525, (R2)+ :MOVE THREE S2S25 INTO BUFFER 
DEC R1 : COUNT 
BNE 1$ ;BRANCH IF THREE NOT DONE 
150100 MOV #BFEVEN,JRHBA :SET BUS ADDRESS TO START 
-FROM AN EVEN WORD BOUNDARY 
150070 MOV #-2,3RHWC ;WORD COUNT TWO 
JSR "RO, JCOMND 3;GO TO DO COMMAND 
REVWRT tREVERSEWRITE DATA 
:CHECK THAT RHCS3 HAS O 
001124 MOW #0, SGDDAT ;GET GOOD = 0 
001126 MOV JRHCS3,S$BDDAT  ;READ RHCS3 FOR COMPARISON 
00i126 CMP $GODAT, $BDDAT ; COMPARE EXPECTED 
;DAT a. WITH DATA READ FROM 
BEQ 65S ‘BRANCH IF GOOD 
ERROR 124 


;AFTER SETTING “CLR” BIT #& 

: IN RHCSe TO INIT THE RH 

;A TWO WORD WRITE REVERSE FROM AN 
;EVEN WORD BOUNDARY WAS DONE 


I01 


CERHADO MACY :04 1<DEC-77 13:06 PAGE 216 j 
Men ey alee) fe a oe ll S55 eer pel cRHCS3 BIT #10) TEST N 
i497 ‘i HEN 

11935 HCS3 SHOULD HAVE 0 

11499 ‘Bus CONTAINED WHAT IS 

11500 ones ass : GIVEN IN BAD RHCS3 

034 : 

11502 830056 o4errr ocoo076 1S00e4 BIC 876, 3RHCS1 {CLEAR FUNCTION BITS 

11503 CHECK THAT RHCS1 HAS SCIRDY!DVA 

11504 034034 012737 104200 001124 hov #SC!RDY!DVA, SGDDAT ;GET GOOD = 104200 
11606 O34042 617737 150012 001126 MOV JRHCS1,$B0DAT  ;READ RHCS1 FOR COMPARISON 
11607 O34050 623737 OOll24 OOlise CMP SGDDAT, SB0DAT ©; COMPARE EXPECTED 

11508 :DAT DATA WITH DATA READ FROM 
11509 

11B10 B3ace8 | fosiee BeRoR 58 BRANCH IF GOOD 

11812 mea. he ;AFTER SETTING “CLR” BIT 45 
11513 :IN RHCS2 TO INIT THE R 

11614 A TWO WORD WRITE REVERSE FROM AN 
Li5is :EVEN WORD BOUNDARY WAS DONE 
i 

11617 ;RHCS1 SHOULD HAVE SC!RDY!DVA 
11515 ‘GUT CONTAINED WHAT IS 

11526 'GIVEN IN BAD RHCS1 

11521 o24062 673: 

i1se2 CHECK THAT RHCS2 HAS IR!OR 

11623 034062 012737 000300 001124 hov #IR!OR.$GODAT :GET GOOD = 300 

11684 034070 03737 605010 0112s BIS GATT SGDbAT INCLUDE UNIT NUMBER 

11526 034076 017737 147766 oO01126 MoV ORHCS2,$BODAT READ RHCS2 FOR COMPARISON 
11527 034104 623737 001124 DBOllse CMP SGDDAT. $BDDAT ; COMPARE EXPECTED 

11528 : ORT WITH DATA READ FROM 
11529 Prese 

11530 034112 001401 BEQ 69S BRANCH IF GOOD 

11531 O34114 iO04i26 ERROR 126 

11532 ;AETER SETTING “CLA” BIT 5 
11635 : IN RHCS2 TO INIT THE RH 
11534 TWO WORD WRITE REVERSE FROM AN 
11535 ‘EVEN WORD BOUNDARY WAS DONE 
11537 ;RHCS2 SHOULD HAVE IR!OR 
11638 5 

11539 I TOGETHER WITH UNIT NUMBER 
11640 BUT CONTAINED 1S 

11641 'GIVEN IN BAD Rucse 

11542 024116 69S: 

11543 »CHECK THAT RHWC HAS O 

{1544 034116 012737 G00000 oDi124 hoy #0, SGDDAT :GET GOOD = 0 

11546 034124 017737 147732 001126 MOV JRHWC,SGDDAT § ;READ RHWC FOR COMPARISON 
11E47 O34i32 023737 001124 OOlise CMP SGDDAT.$BDDAT COMPARE EXPEC 

11648 DATA WITH DATA READ FROM 
i1ESO 034149 ocOL4OL BEG 713 BRANCH IF GOOD 

11551 eeiae 104131 ERROR 131 

11662 SAFTER SETTING "CLR" BIT #5 


JOl 
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11553 ; IN RHCS2 TO INIT THE RH 

11554 ;A TWO WORD WRITE REVERSE FROM AN 
11555 EVEN WORD BOUNDARY WAS DONE 
11556 

11557 :RHWC SHOULD HAVE O 

11558 :BUT CONTAINED WHAT IS 

11559 :GIVEN IN BAD RHWC 

11560 034144 Tis: 

11561 

Lees 

11564 + REREEERERSESER ERE KEEREEE ERS KA ERR AE SERA EE RAR SKE LAER FLESH SSH ELSES 
rizee tSTEST Sé TEST DBL (RHCS3 BIT #10) TEST O 

11567 :* CLEAR THE a oyeSySTEN BY R CONTROLLER CLEAR (RHCS2 BIT #5) 
11566 :% SET UP F TWO WORD WRITE REVERSE FROM AN ODD 1.uRD BOUNDARY 
11563 :* DO A TWO OfIORD WRITE REVERSE FROM AN OOD WORD BOUNDARY 
11570 :# THIS SHOULD SET RHCS3 BIT #10 DBL 

11571 ;* CHECK RHCS3 

11828 :* CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

11574 = SEEKS SKSEREKREFRAHRKA REARS SESAAKAAERARAKRE RELA TESA KSRA SFL AHASSREFE 
1157S 034144 990004 +éT5e: OPE 

11576 O34146 012706 001000 MOV aSTACK,SP ;RESET STACK 

ea 0341S2 012737 OOodseE d04ES56 MOV #56, a8 tSTNM :SAVE TEST NUMBER 

11579 034160 004737 O40306 JSR PC, deCLDISK ;GIVE RH INITIALIZE 

11580 :SETUP UNIT NUBER 

11234 CLEAR RHWC AND FUNCTION BITS IN RHCS1 
11583 -SET UP FOR A TWO WORD WRITE REVERSE FROM AN ODD WORD BOUNDARY 
11584 034164 012701 o00003 MOV #3,R1 COUNT OF THREE 

1158S 034170 Ole70e 9003002 MOV #BF ODD, Re : START enhtne WORD BUFFER 

11586 :FROM AN ODD WORD BOUNDAR 

11587 034174 Ole722e doSes5e5 1S: MOV eS2S25, (R2)+ :MOVE THREE S2S2S INTO BUFFER 
11588 034200 005301 DEC Rl ; COUNT 

11589 034202 001374 BNE 1$ ;BRANCH IF THREE NOT DONE 

11890 034204 012777 OO3002 147652 MOV #BF ODD, IRHBA :SET BUS ADDRESS TO START 

11591 *FROM AN ODD WORD BOUNDARY 

11592 O34212 012777 177776 147642 MOV #8-2,dRHWC ;WORD COUNT TWO 

11593 034220 004077 iSO414 JSR RO, ICOMND ;GO TO DO COMMAND 

11338 034224 004204 REVWRT :REVERSEWRITE DATA 

ise 

-CHECK THAT RHCS3 HAS DBL 

11338 034226 012737 oo2000 o01124 Mov #DBL , SGDDAT ;GET GOOD = 2000 

11600 034234 017737 147672 001126 MOV @RHCS3, SBDDAT ;READ RHCS3 FOR COMPARISON 

11601 O34242 623737 OO01124 OO11e6 CMP $GDDAT ; $BDDAT :COMPARE EXPEC 

11Pae pare WiTn DATA READ FROM 

11604 O34250 001401 BEQ 6S$ :BRANCH IF GOOD 

11605 O2425e 104124 ERROR 124 

11606 ;AFTER SETTING “CLR” BIT aS 

11607 sIN RHCS2 TO INIT THE RH 

11608 :A TWO WORD WRITE REVERSE FROM AN 
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11609 ;0DD WORD BOUNDARY WAS DONE 
11610 ; THEN 
11611 RHCSS SHOULD HAVE DBL 

6 
itis !BUT CONTAINED WHAT IS 
11618 Stans Se :GIVEN IN BAD RHCS3 
1162 - : 
11616 O34254 O4e777 900076 147576 BIC #76, IRHCS1 {CLEAR FUNCTION BITS 
11617 CHECK THAT’ RHCS1 HAS SC!IRDY! 
11618 O34262 012737 104200 001124 hov asc! ROY OVA, $GDDAT A GET GOOD = 104200 
11620 O34270 017737 147564 001126 MOV DRHCS1,$BODAT  ;READ RHCS1 FOR COMPARISON 
11621 O34276 023737 OO1ie4% OOlles CMP $GDDAT’ $BDDAT ; COMPARE EXPECTED 
1l6e2 :DATA WITH DATA READ FROM 
11623 RHcSd 
11624 034304 001401 BEQ 673 :BRANCH IF GOOD 
11625 034306 104125 ERROR 125 
11626 ;AFTER SETTING "CLR" BIT aS 
1l6e7 :IN RHCS2 TO INIT THE RH 
11628 [A TWO WORD WRITE REVERSE FROM AN 
11623 900 WORD BOUNDARY WAS DONE 
11631 tRHCSL SHOULD HAVE SC!RD'!DVA 
11633 BUT CONTAINED WHAT IS 
11634 :GIVEN IN BAD RHCS1 
1163S 034310 67S: 
11636 CHECK THAT RHC Se HAS IR!IOR 
11637 034310 012737 000300 001124 hov BIR!OR.$GDDAT  ;GET GOOD = 300 
11638 034316 053737 OGOSO1O O01le4 BIS UNIT, SApbAT : INCLUDE UNIT NUMBER 
11640 034324 017737 147540 001126 MOV QRHCS2,SBDDAT  ;READ RHCS2 FOR COMPARISON 
11641 034332 023737 001124 OOlice CMP SGDDAT,;SBDDAT ;COMPARE EXPE 
1ie4e ;0A DATA_WITH DATA READ FROM 
11644 034340 001401 BEQ 693 : BRONCH IF GOOD 
11645 O34342 104126 ERROR 126 
11646 ;AFTER SETTING “CLR” BIT 8S 
11647 : IN RHCS2 TO INIT THE RH 
11648 :A TWO WORD WRITE REVERSE FROM AN 
Liss DD, WORD BOUNDARY WAS DONE 
11661 : RUCS2 SHOULD HAVE IR!OR 
11653 ! TOGETHER WITH UNIT NUMBER 
iigee fad a 
11656 034344 69S: 

-CHECK THAT RHWC HAS O 

11658 034344 012737 ocoo00D 001124 MOV #0, SGDDAT ;GET GOOD = 0 
11660 O343S2 017737 147504 oO01126 MOV DRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
11661 6034360 623737 001124 OOliz6 CMP $GDDAt, SBDDAT COMPARE EXPE 
iibbe iar ara A WITH DATA READ FROM 
11664 C3436— 001401 BEG 713 + BRANCH IF GOOD 


LO] 


nn ay —— 206 10") 2i-DEC-77 13: 0& PAGE 219 
C <ERMAD.P 2i-DEC-7" 12:46 TS6 TEST DBL (RHCS3 BIT #10) TEST O 
§ 034370 104131 ERROR i31 
eee ;AFTER SETTING Ft BIT aS 
66° : IN RHCSe TO INIT THE RH 
668 TWO WORD WRITE REVERSE FROM AN 
os +i: Ma BOUNDARY WAS DONE 
6; i 
67 C SHOULD _H e 
E53 ty CONTAINED AHA Is 
673 GIVEN IN BAD RHWC 
674 9034372 718: 
675 
676 


y 


| EEFEE EEE EEERE SEERA SEER ESSERE EERE RELL REE EELEARA SESE ESSE ES EEE ERED 
i STEST 57 TEST DBL (RHCS3 BIT #10) TEST P 


AR_T M BY - ROT ROLLER CLEAR (RHCS2 BIT #5) 
cet UP FOR A THREE” WO On WRITE pS gs 4 FROM AN EVEN WORD BOUNDARY 
DO A THREE DRRITE RREVER SE FROM AN EVEN WORD BOUNDARY 
a) $8 oe a RHCS3 BIT #10 DBL 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


s EEKSSSSERSSESEEREAKRAAERSARASHKARKERARRERERE LAKHS AA SE ESHA SRAES 
024372 o00004 ¢é15>: SCOPE 
034374 Ole706 001000 MOV sSTACK, SP ;RESET STACK 
034406 012737 O000S7 ocD4ESe MOV #57, J8TSTNM ;SAVE TEST NUMBER 
034406 004737 O4030E ISR PC, J#CLDISK ;GIVE RH INITIALIZE 
ae ERR Ue RHC ONDE FUNCTION BITS IN RHCS1 


;SET UP FOR_A THREE WORD Re A FROM AN EVEN WORD BOUNDARY 


MOMDOMOOMO-)3-4 
Wf Wlr-O.0w 


eee oe + 


eee ee Td 


aes oe eect epee bbbbbbebe ud 
BIEN Eau ODO Vee wh Ow Ie 


O34412 O12701 900003 MOV #3,R1 3¢ 
034416 Ol2702 003000 MOV #BFEVEN, Re :START THREE WORD BUFFER 
:FROM AN EVEN WORD BOUNDAR 
O34422 012722 oOS2Ses 1S: MOV #52525, (R2)+ ; MOVE THREE S2S2S INTO BUFFER 
034426 005301 DEC R1 NT 
034430 001374 BNE 1$ i BRANCH IF THREE NOT DONE 
034432 012777 OO3000 147424 MOV S2FEVE .,3RHBA CET BUS ADDRESS TO START 
FROM m_AN EVEN WORD BOUNDARY 
O3444O0 012777 177775) 147414 MOV #-3,9RHWC ;WORD COUNT THREE 
O34446 OO4077 150166 JSR RO, JCOMND ;GO TO DO COMMAND 
08 O344S2 004204 REVWRT :REVERSEWRITE DATA 
10 
11 “CHECK THAT RHCS3 HAS DBL 
le 034454 012737 oO2000 001124 MOV #DBL , SGDDAT ;GET GOOD = 2000 
14 O34462 017737 147444 001126 MOV DRHCS3,$BDDAT ;READ RHCS3 FOR COMPARISON 
1S 034470 023737 001124 O01126 CMP $GDDAT; $BDDAT ; COMPARE EXP 
4 ;DAT A WITH DATA READ FROM 
tg O34476 001401 BEG 653 + BRANCH IF GOOD 
19 034500 i04124 ERROR i124 ? 
20 ;AFTER SETTING “CLR” BIT #5 
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C PL 21-DEC-77 12:48 1S7 TEST DBL (RHCS3 BIT #10) TEST P SEG 0219 
N RH 2 19 INIT THE R 
o WRITE REVERSE FROM aN 
N WORD BOUNDARY WAS DONE 


; HEN SHOULD HAVE DBL 
ODOR ONTAINED. WHAT IS 
i Be YN BAB RHCSS 
034S02 
S EAR FUNCTION SITS 


O034S02 042777 O00076 147350 #78, aRH 1 iChEF 
BIC ECK THA HA 'RBY! OVA 
034510 012737 104200 001124 Ov aSC!RDY! Sbvae Scdoat ;GET GOOD = 104200 


4516 ; 47336 li MOV RHCS1, R RHCS1 FOR COMPARISON 
B34e34 diias Goiiee CMP cobRt; SEBBAT ‘eran oate = FRO. 
34 :BRANCH IF GOOD 
B34534 ore SETTING “CLR” BIT #5 


THREE ORO WRITE REVERSE FROM AN 


+O NEN N WORD BOUNDARY WAS 
;RHCS1 SHOULD HAVE SC!RDY!DVA 


=104 
BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


™N 


034536 
; CHECK yy | , RHCSe HAS IR!OR 


bbsa1 78 GAT#OSaBSRP*” —  FACLEBEP unr Tuner 


SAT SECON -SEBBNT  :BSSDARRCEE ERE. gonrartson 
;DATA WITH DATA READ FROM 


3 : RUE IF GOOD 
;AFTER SETTING “CLR” BIT #5 


iN THREE“ WORo WALTER VERSE FROM ar 


sEvE ~ WORD BOUNDARY WAS DONE 
RHE SHOULD HAVE IR!IOR 
TOGETHER WITH What NUMBER 


TAINED WHAT 
VEN IN BAD RHCS 


PRUNE WAI ODO) VUE WitUe= GD TUNE tatue OD 


COOK OOO MUU 
NOOSE WE OWON 


Oe 


034572 
;CHECK THAT RHWC HAS O 
O34S72 012737 ooocc0 001124 hove #0,$GD BOAT ;GET GOOD = 0 


O34600 017737 147256 001126 MOV @RHWC , SBDDAT ;READ RHWC FOR COMPARISON 
O34606 023737 O01124 001126 CMP $GDDAT, SBDDAT :COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


NNNNNN NANA NINN NINN SAIN INI NSIS NNN NNN NNNN NOES 


1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 


se ee a ee eh Bs eb ee ee Be Be ee be ee ee he bee Pe 


NNNNNNNO 
noe 


Tu sw 
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21 -DEC-77 


; RHWC 
356 $ ;BRANCH IF GOOD 


1 
31 
“CLR” BIT @ 
HIN Rec se 10" NIT? Wa © Ss 
WORD WRITE MRE VERSE FROM AN 
EVEN N WORD BOUNDARY WAS DONE 


034614 o00i401 BEQ 7 
034616 i04131 ERROR 1 


oon) 
—-OwW®W 


;RHWC SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 
034620 7i$: 


; [prsqeagenenssogsousooosocosoorrn at. PREEERE 
iéTES TEST DBL (RHCS3 BIT #10) TEST @ 


CLEAR Me! syesyeren BY A Correa. ao oy. BIT #S) 
= FOR A THREE WRITE REVERSE FROM AN ODD WORD BOUNDARY 
A THREE . WRITE REVERSE FROM AN ODD WORD BOUNDARY 
NOT SET RHCS3 BIT 810 DBL 
CHECK RHCS3 


CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
- LEELA SELAEAEASLALE LALLA SELLA EA SALLE LALEAH LESH AR SESS ESSE EES 
psuese Bre 7be 01000 tére0: nov eSTACK,SP ;RESET STACK 
uv 
034626 000060 O046SE #60, datSTNM ;SAVE TEST NUMBER 
034634 040306 PC, d#CLOISK SE Top RH MeL Ze 
CLEAR RHC AND FUNCTION BITS IN RHCS1 

os A THREE WORD - “walTe Revenss FROM AN ODD WORD BOUNDARY 
03464 000003 Rl UN THREE 
034644 903002 sat 000, Re i START Ph WORD BUF 

;FROM AN ODD WORD BOU NDARY 

034650 O0S2SesS : #SeSes, (R2)+ save THREE S2S2S INTO BUFFER 
034654 Rl T 


034656 1$ RANCH IF THREE NOT DONE 
034660 003002 147176 #BF ODD, JRHBA ET ms ADDRESS TO START 


. OM AN ODD WORD BOUNDARY 
034666 177775 147166 #-3,9RHWC ; WORD shod THREE 

034674 147740 IS "RO, JCOMND ;GO TO DO COMMAND 

034700 REVWRT ;REVERSEWRITE DATA 


REO ddan 
Nietew tbe ltubani tate Nt st tpt 


30 


fate} 


WS HA et eet tt at etait 4 


DODWDNOHONDMDDODDVOODMDONOWODODO 
VM OVWVONOWULSWM-OWONOU LW OwW 


CHECK THAT pee HAS 0 
034702 ooo000 001124 hov #0,$GDDA ;GET GOOD = 0 


034710 147216 O01:26 MOV JRHCS3, SBODAT ;READ ge FOR COMPARISON 
034716 023737 001124 001126 CMP $GDDAT , SBDDAT ; COMPARE EXP 
:;DATA WITH DATA READ FROM. 


;RHCS3 
034724 001401 BEG 653 :BRANCH IF GOOD 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
i 
1 
1 


se es be ae Be Bae ee ae ae Be he ee ee ee be be be ee be ee Be Be be Be Be Be ee be ee be Be be Be en ee ee 


Onwowmoaw 
Wwwrvry 
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4726 104124 ERROR 124 
Fy ty on ;AFTER SETTING Fe BIT «Ss 
11835 IN RHCSe TO INIT THE RH 
11836 ; THREE WORD WRITE REVERSE FROM GN 
11837 ‘O00 WORD BOUNDARY WAS DONE 
11838 
11839 'RHCS3 SHOULD HAVE O 
11840 :BUT CONTAINED WHAT IS 
11841 —— = :GIVEN IN BAD RHCS3 
1184 47 : 
11843 034730 oNe777 #OOOO7E 147122 BIC #76, @RHCS1 {GEER F FUNCTION BITS 
11844 -CHECK THAT RHCS1 HAS SC!RDY!DVA 
11845 034736 012737 i04e00 001124 MOV #SC!RDY!DVA, SGDDAT ;GET GOOD = 104200 
11847 O34744 O17737 147110 001126 MOV @JPHCS1, SBDDAT ;READ RHCS1 oe. COMPARISON 
118468 O0347S2 023737 OO112e4 001126 CMP $GDDAT’ $BDDAT tCOMPARE EXPECT 
11849 :DATA WITH DATAT READ FROM 
11850 :RHCS1 
11851 O34760 o01401 BEG 675 ‘BRANCH IF GOOD 
11852 O3476e 104125 ERROR 125 
11853 OF TER SETTING “CLR” BIT #5 
11854 ;IN HCSe TO INIT THE RH 
1185S THREE WORD WRITE REVERSE FROM AN 
11858 $000 WORD BOUNDARY WAS DONE 
11938 aged SHOULD HAVE SC!RDY!DVA 
11860 :BUT CONTAINED WHAT IS 
11861 :GIVEN IN BRAD RHCS1 
11862 034764 67$: 
11863 -CHECK THAT RHCS2 HAS IR!OR 
11864 034764 012737 oO00300 001124 MOV #IR!OR, $GDDAT ;GET GOOD = 300 
11968 034772 053737 oOOSOiO OO11e4 Bis UNIT, $éDDAT : INCLUDE UNIT NUMBER 
11867 O3S5000 017737 147064 001126 MOV @PHCS2 , SBODAT READ RHCS2 FOR COMPARISON 
11868 035006 023737 OO11e4 OOliee CMP $GDDAT ; $BDDAT COMPARE EXPECTED 
118693 ;DAT A WITH DATA READ FROM 
11870 ;RHCS2 
11871 035014 901401 BEQ hy :BRANCH IF GOOD 
11872 O35016 104126 ERROR 126 
11873 ;AF TER SETTING agen BIT #5 
11874 sIN N RHCSe TO INIT THE RH 
11875 THREE WORD WRITE REVERSE FROM AN 
ies 5 900 WORD BOUNDARY WAS DONE 
rinse : RHCSE SHOULD HAVE IR!OR 
i1880 TOGETHER WITH UNIT NUMBER 
11881 :BUT CONTAINED W IS 
1188e :GIVEN IN BAD riicse 
1185q 035620 693: sium deen c% 

CHECK THAT RHWC HA 

11885 035020 012737 ooooge §=0011e4 hov #0, $GDDAT ;GET GOOD = 0 
11887 035026 017737 147030 001126 MOV @RHWC , SBDDAT ;READ RHWC FOR COMPARISON 
11886 035034 923737 001124 001126 CMP $GODAt, SBDDAT :COMPARE EXPECTED 
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11891 
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OWw 
OwWMW 


0000 
W£Wwtu 


Vee RV eve tvelvelvelvevelveDvelvelververvelvelvelvervelvclververvelvervelververy ely eles) 


POPU PUMP PUTU MU be OOD 


—-OVDONOU LW OWONOUSWM--OWONM 


ee en ee ee ee ee Be ee ee ee ee ee ee ee he ee ee be ee be ee be ee Be be be ae Be ee ee be B= ee be ee ee 
ee be ps ee ee he be hn en Be be be be ee be ee eb ee be be ne be bo be ee be be oe he he he hs be he ee 
Wakvarverververecreervetvelvelvervelverertvsl @o 
Ww bint itet a} 
£W 


£ifff LW 
rlwn-ow 


Pili 


o3s04e 
035044 


O3S046 


035046 
035050 
035054 


035062 


035066 
035072 


035076 


035114 
03S 122 
035130 
035134 


035136 


035144 
035152 
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00:401 
104i31 


oo00004 
0ie706 
012737 


004737 


012701 
012702 


Ole7ee2 
005301 
001374 
012777 
012777 
0S2777 
004077 
004204 


012737 


017737 
023737 
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001900 
000061 


040308 


000003 
003000 


OSeSes 


003600 
177776 


000010 
147504 


000000 


146762 
001124 


OO4ESE 


146750 


146740 
146740 


001124 


001126 
001126 


COe 
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T60 TEST NBL (RHCS3 BIT #10) TEST @ 
+ Oaue WITH DATA READ FROM 
BEG 71$ ;BRANCH IF GOOD 
ERROR 131 
iON RHC aT iNG oF IME a aS 


2 TO INIT 
AEE WORD WR TE REVERSE FROM AN 
S00 WORD BOUNDARY WAS DONE 


HOULD HAVE O 
But uc i 98 TNED WHAT IS 
718 :GIVEN IN BAD RHWC 
71$: 


Leeeergesannnatgces eet att aa, at 
‘ STEST T 61 TEST DBL (RHCS3 BIT #10) TEST R 


CLEAR _THE SUBSYSTEM BY A SONTROLLES CLEAR (RHCSe BIT #5) 
ET UP FOR A TWO WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
ITH i IN erat IT # 62 SET 

0 A TWO WORD REVERSE FROM AN EVEN WORD BOUNDARY 

HIS ee NOT SET RHCS3 BIT #10 DBL 

CHECK RHCS3 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


- KSSERSKERKSKESESRKKESRARSSRAAARALESHAASHEAAKSKREAASEAFESLSFLAEF SLES 
+ét61: SCOPE 
MOV 


"STACK, SP ;RESET STACK 
MOV #61, a8tSTNM :SAVE TEST NUMBER 
ISR PC, J#CLOISK ;GIVE RH INITIALIZE 
SET UP UNIT 


NUBE 
LEAR RHWC AND FUNCTION BITS IN RHCS1 


ho RI 0 

MOV » Be VEN,R TART an BE WORD BUFFER 

4 a8 — ‘BRON EVEN W GRO BOUNDARY 
1S: Mov uS2S2s, (R2)+ HOVE THREE Cotes INTO BUFFER 

BNE 1S SRANCH IF THREE NOT DONE 

MOV #BFEVEN, aRHBA eer BUS ADDRESS TO START 

N EVEN WORD BOUNDARY 

MOV #-2,a3RHWC ; WORD count TWO 
BIS sBAI SRHCSS" SET BAI IN RHCS2 

JSR RO. aCOMN GO TO DO COMMAND 

REVWRT PREVERSEWRITE DATA 

:CHECK THAT RHCS3 HAS O 

MOV #0, $GDDAT ;GET GOOD = O 

MOV @RHCS3,S$BDDAT  ;READ RHCS3 FOR COMPARISON 


CMP $GDDAT , SBDDAT ;COMPARE EXPECTED 


id UP a A TWO WORD uRITE bs gs Enon AN EVEN WORD BOUNDARY 


D0e 
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CERHAD.P11 21-DEC-77 12:48 Tel TEST DBL (RHCS3 BIT #10) TEST R 
1194S i pce WITH DATA READ FROM 
11946 
11947 635160 001404 BE 65$ :BRANCH IF GOOD 

4 4124 
11398 : ate s AFTER SETTING gee gir aS 
119506 IN RHCSe TO INIT THE R 
11951 :A TWO WORD WRITE REVERSE FROM an 
11952 ; EVEN WORD BOUNDARY WAS DONE 
11953 THEN BAI IN RHCS2 set 
11954 
11955 RHCS3 SHOULD HAVE O 
11956 :BUT CONTAINED WHAT IS 
11357 er oe :GIVEN IN BAD RHCS3 

4 H 

11959 635164 o4e777 OD0076 146666 BIC #76, 9RHCS1 {CLEAR F FUNCTION BITS 
11960 -CHECK THAT RHCS! HAS SC'!RDY!DVA 
11961 035172 912737 104200 oo1124 MoV aSC!RDY!DVA, $GODAT ;GET GOOD = 104200 
11963 035200 017737 146654 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
11964 035206 523737 001124 OOlice CMP $GDDAT; $BDDAT ; COMPARE EXPECTED 
11365 ; DAT ar Q WITH DATA READ FROM 
11967 035214 001401 BEG 67% : BRANCH IF GOOD 
11968 C3Se1i6 104125 ERROR 125 
119693 ;AFTER SETTING ToLR" BIT aS 
11970 i IN RHCS2e TO INIT THE R 
11971 A TWO WORD WRIT cFiBE BAKE FROM AN 
11972 EVEN WORD BOUNDAR 
11973 H BAI IN RHCSe S 
11974 WEN 
11975 ;RHCS1 SHOULD HAVE SC!RDY!DVA 
11976 4200 
11977 ‘BUT CONTAINED WHAT IS 
11978 2 :GIVEN IN BAD RHCS1 
11973 o3S220 67S: 
11980 ; CHECK THAT RHCS2 -—. Rt 1OR! BAI 
11981 035220 012737 900310 p01 1284 MOV 304 08 3 BA +860 GET GOOD = 310 
11382 035226 053737 OOSOIO OO1ic4 bIS T INCLUDE ‘UNIT NUMBER 
11984 035234 017737 146630 001126 MOV DRHCS2,S$BDDAT ;READ RHCS2 FOR COMPARISON 
1198S 035242 023737 OO1i2e4 O01126 CMP $GDDAT;$BDDAT ;COMPARE EXPECTED 
11386 oele Maen DATA READ FROM 
11988 O35250 001401 BEG 69% :BRANCH IF GOOD 
11989 O3525e 104126 ERROR 126 
11990 ;AFTER SETTING Aw aA ae 
11991 ; IN RHCS2 TO AN SaR 
11992 A TWO WORD WRITE REVERCE FROM AN 
11993 EVEN WORD BOUNDARY WAS DONE 
ize ;WITH BAI IN RHCSe SET 
+1238 :RHCS2 SHOULD HAVE IR!OR!BAI 
11998 TOGETHER WITH UNIT NUMBER 
11995 :BUT CONTAINED WHAT IS 
12006 :GIVEN IN BAD Rice 
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035254 
035254 
035262 
035270 


035276 
035300 


035302 


035302 
035304 
035310 


035316 


035322 
035330 


035332 
035336 


O3S34e 
035346 
035350 
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012737 
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O1e706 
012737 


004737 


022737 
001103 
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oocoso 901 


146574 


ié4 
001126 
26 


001i2e4 OO011 


001000 
ooo00be 


040306 


041674 


000003 
003000 


OSeSes 


003000 


OO46SE 


004640 


146504 


633: 


71$: 


13:06 PAGE 225 
Tel 


E0e 


TEST DBL (RHCS3 BIT #10) TEST R 


sCHECK THAT RHWC_HAS 0 


Mov 


MOV 
CMP 


BEG 
ERROR 


#0, $GDDFT ;GET GOOD = 0 


JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
$GODAT,$BDDAT :COMPARE EXPECTED 
:DA ATA WITH DATA READ FROM 


HWC 
4$ : BRANCH IF GOOD 


;AF TER SETTING foo a aS 
5 IN Ye TO INIT THE R 

; O WORD WRITE REVERSE FROM AN 
EVEN WORD BOUNDARY WAS DONE 
pote , BAI IN RHCS2e SET 


;RHWC SHOULD HAVE O 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


—_-~) 
Ww 


5 REE E EERE REE EEE ERLE REA E REARS RAR HENKEL ER ERE ELSE EE ERE EES EE 
i STEST 62 


CLEAR "FOR ARIE LORD A CONTROLLER CLEAR (RHCS2 BIT a5) 


+62 


1$: 


SET UP FO 
NINE WORD READ REVERSE FROM AN EVEN WORD BOUNDARY 


DO A 


TEST DBL (RHCS3 BIT #10) TEST S 


READ REVERSE FROM AN EVEN WORD BOUNDARY 


THIS SHOULD SET RHCS3 BIT #10 DBL 


CHECK 


HCS 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 


- LEKEKRRERHKREHEREKRERRAEAEE LALA RA ERAAAELESRERRLEALHAL FLAS RAFRF LES 


SCOPE 
MOV 
MOV 


JSR 


CMP 
BNE 


aSTACK,SP ;RESET STACK 
#62, a8tSTNM :SAVE TEST NUMBER 


PC, J#CLOISK ;GIVE RH INITIALIZE 

:SETUP UNIT NUBER 

:CLEAR RHWC AND FUNCTION BITS IN RHCS: 
#CMNDTM,COMND IS TU THERE 


TST63 ;BRANCH IF TU NOT THERE 


Ay A NINE WORD RECOUNT OF THREE. AN EVEN WORD BOUND 
SBREVEN, Re ;START THREE WORD BUFFER 

;FROM AN EVEN WORD BOUNDARY 
BSSEES, <A2)¢ sMOVE THREE S2S2S INTO BUFFER 


OUN 
1$ ‘BRANCH IF THREE NOT DONE 
#GFEVEN, JRHBA :SET BUS ADDRESS TO START 
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fu 
oO 
wo 
N 


0398 


Q0000G 


b= se = bo 
Saetah tts} ti pant iets: 


tururorurururufururufofurunn 


ee O00 


035360 
035366 
038372 


035374 
035402 
035410 


035416 
035420 


O3S4e2e 
03S4e2 


035430 
035436 
O3S444 


03S4Se 
035454 


O354S6 


O354S6 
035464 


03547e 
035500 


035506 
035510 


012777 
004077 
004200 
012737 
017737 
023737 


001401 
104124 


042777 
012737 


012737 
053737 


177767 


147246 


902000 


146524 
O0ile4 


000076 
004200 


146416 
001ie4 


2i-DEC-77 
2:48 


146474 


001124 


001126 
OS1ileb 


146430 
O011eE4 


001126 
001126 


6S$: 


67$: 


FOe 


TEST DBL (RHCS3 BIT #10) TEST S 


13: a oe 226 


FROM AN EVEN WORD BOUNDAR : 


MOV @-9.,3RHWC ; WORD CouNT NINE 


JSR 
REVRED 


hov 


MOV 
CMP 


BEG 
ERROR 


RO, JCOMND 


CHECK THAT RHCS3 HAS DBL 


#OBL , SGDDAT 
@RHCS3, SBDDAT 
$SGDDAT, SBDDAT 


6S$ 
124 


#76, dRHCS1 


;G0 TO DO COMMAND 
;REVERSE READ 
;GET GOOD = 2000 
;READ RHCS3 Sie COMPARISON 
; COMPARE EXPECT 
:DATA WITH DATA READ FROM 
;RHCS3 
;BRANCH IF GOOD 
;AFTER SETTING ew BIT 4S 
2 RHCSe TO INIT THE R¥ 

A NINE WORD READ REVERSE FROM AN 
:EVEN WORD BOUNDARY WAS DONE 
;RHCS3 SHOULD HAVE DBL 


'BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


; CLEAR FUNCTION BITS 


BIC ar 
-CHECK THAT RHCS1 HAS RDY!DVA 
@RDY!DVA,SGDDAT ;GET GOOD = 4200 


Mov 


MOV 
CMP 


BEQ 
ERROR 


MOV 
BIS 


MOV 
CMP 


BEQ 
ERROR 


@RHCS1, SBODAT 
$GDDAT; SBDDAT 
67$ 
les 


; CHECK yy! 1 eee HAS IR 


DDAT 
gare? $GDDAT 


@RHCS2, SBODAT 
$SGDDAT , SBDDAT 


693 
126 


;READ RHCS1 pect COMPARISON 
; COMPARE EXP 
;DATA WITH DATA READ FROM 


;RH nes 
;BRANCH IF GOOD 


;AFTER SETTING “CLR” af aS 
i IN RHCSe TO INIT THE R 

A NINE WORD READ REVERSE FROM AN 
: EVEN WORD BOUNDARY WAS DONE 


; RHCS1 SHOULD HAVE ROY!DVA 
‘BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 

;GET GOOD = 100 

; INCLUDE UNIT NUMBER 

;READ RHCS2e eae et COMPARISON 


:COMPARE EXP 
:;DATA WITH DATA READ FROM 


;RHCS2 
:BRANCH IF GOOD 
;AFTER SETTING “CLR” BIT #5 


ee nn nn ed nd ed ee ed ed ee ed eed ee et et ed ee 
Tururororulu Pfu Poporuru foporufururulv fofu rutulfurufururufurorururufurfururoruferurufururofururufururururururufu 
Mtotatataalcaatiiaratatith taal alae a aa we at ae wet MTR ATATATRTATATATAL NT TT TT TT TTT NTT] tt erer err et ore 

1 b= b= 
ONOW LW O WONT WLC WM-OVDONOW LW -O DONT MEW -OWONTMN CW OW YOU £w & 


035S1e 
035512 
035520 
035526 


035534 
035536 


035540 


035540 
O35S4e 
035546 


035554 


035560 
O3SS6E 
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Ole737 


cranes 
515598 
004737 


022737 
901103 


ocosoo 001124 


146336 001126 
OO011e4% OOl11e6 


091009 
000062 


0306 


041674 


i3: 0& PAGE 227 
Tee 


GOe 


TEST DBL (RHCS3 BIT #10) TEST S 


2 RHCS2 TO INIT THE R 
A NINE WORD READ REVERSE FROM AN 
SEVEN WORD BOUNDARY WAS DONE 


: THEN 
RHCS2 SHOULD HAVE IR 
70 SCE THER WITH UNIT time 


:BUT CONTAINED W 
:GIVEN IN BAD RHC ose 


698: 
-CHECK THAT RHWC HAS O 
MOV #0, $GODAT ;GET GOOD = 0 
MOV IRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
CMP $GDDAt, $BDDAT ; COMPARE EXPECTED 
;DAT are A WITH DATA READ FRO 
BEG 71% + BRANCH IF GOOD 
ERROR 131 
;AFTER SETTING “CLR” BIT as 
: IN RHCSe TO INIT THE R 
A NINE WORD READ REVERSE FROM AN 
ie ven N WORD BOUNDARY WAS DONE 
ft - H OD HAVE 
: BUT cageit oe RED WHAT IS 
va :GIVEN IN BAD RHWC 


[ soegunnacasnnsenantoersesetessazesvesetpossnedensneaneananerees 
iSTEST 63 TEST DBL (RHCS3 BIT #10) TEST T 


;* cago SUBSYSTEM BY 8 A agent ROLL ER. CL CLEAR (RHCS2 BIT #5? 
:#* 3 UP FOR A TEN WOR S M AN EVEN WORD BOUNDARY 
;* TEN WORD REA REVERSE FROM aN EVEN WORD BOUNDARY 

;* oars SHOULD NOT SET RHCS3 BIT #10 D 

* CHECK RHCS3 

:* CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

:#* IF MAG. TAPE NOT USED. THIS Teer fs NOT DONE 


=< FHRESSERELESSERESASSESEAFRESEREAASEEKEKRHSEAHRHSSSSHHSHH HRSA E EHTS 
té763: SCOPE 


OV aSTACK,SP ;RESET STACK 
MOV 863, aeTSTNM :SAVE TEST NUMBER 
ISR PC, J8CLDISK ;GIVE RH INITIALIZE 
:SETUP UNIT 
:CLEAR RHWC AND FUNCTION BITS IN RHCS! 
CMP SCMNDTM,COMND :IS TU THERE 
BNE TST64  ;BRANCH IF TU NOT THERE 


;SET UP FOR A TEN WORD READ REVERSE FROM AN EVEN WORD BOUNDAR : 
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CERHAD.F ii 2i-DEC-77 12:46 763 TEST DBL (RHCS3 BIT #10) TEST T 


R325 BISSB4 BBSBEE MOY SBREVen,re = ESPRRT FhRee WOR BUFFER 


;FROM AN EVEN WORD GOUNDARY 


935600 Giz72e Os2s25 18: mov aS2525,(R2)+ MOVE THREE S2525 INTO BUFFER 
Poe borate oe 4 sO ORNCH IF. THR T DON 
32698 894353 oosoo0 1He24e MOV Laeeven.arHaa ert Bs aooRESS 19 Shane 

‘FROM AN EVEN WORD BOUNDARY 
O3S616 012777 177766 146236 MOV #-10.,a3RHWC ;WORD COUNT TEN 
035624 oo4077 147010 JSR RO, ICOMND GO TO DO COMMAND 
035630 004200 REVRED TREVERSE READ 

“CHECK THAT RHCS3 HAS 0 

035632 012737 o00000 001124 hov a. ScDDaT GET GOOD = 0 
035640 517737 146266 001126 MOV DRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
035646 023737 501124 OOlice CMP $GDOAT';$BODAT COMPARE EXPECTED 

{DATA WITH DATA READ FROM 
035654 001401 BEG 6S$ 'BRANCH IF GOOD 
o3veee6 104124 ERROR 124 


;AFTER SETTING “CLR” BIT #S 

; IN_RHCSe TO INIT THE RH 

;A TEN WORD READ REVERSE FROM AN 
sGveN WORD BOUNDARY WAS DONE 


; TH 
;RHCS3 SHLD HAVE O 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS3 
035660 bss: 


OOVOVWVOVNVD DON DOWDODODOOOMDOO YIN ae 
APO ODO IRL Ole ODD IO Lore Ooo Ure Onde CKD 


035660 042777 O00076 146172 BIC #76, JRHCS1 ;CLEAR FUNCTION BITS 
-CHECK THAT RHCS1 HAS RDY!DVA 
O25666 012737 O04200 001124 Mov #RDY!DVA,S$GDDAT ;GET GOOD = 4200 
035674 017737 146160 001126 MOV QRHCS!,S$BDDAT  ;READ RHCS1 FOR COMPARISON 
035702 023737 001124 O01126 CMP $GODAT’S$BDDAT ;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
;RHCS1 
208 O35710 001401 BEG 67% :BRANCH IF GOOD 
12209 O35712 104125 ERROR 125 
1ge10 ;AFTER ETTING “CLR” BIT 8S 
leell LIN RHCSe TO INIT THE RH 
l22le :A TEN WORD READ REVERSE FROM AN 
ige13 :EV N WORD BOUNDARY WAS DONE 
12215 ;RHCS1 SHOULD HAVE RDY!DVA 
12216 54200 
ae ETENUNEA HST 
12e19 035714 67S: ? 
1 :CHECK THAT RHCS2 HAS IR 
leeei 035714 012737 oO00100 001124 MOV #IR, S$GDDAT :GET GOOD = 100 
lecee 035722 0653737 OO5010 001124 BIS UNIT, $GDDAT INCLUDE UNIT ".UMBER 
12224 035720 017737 146134 901126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 





I0e 
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SERHADCP Ii eisbec—s> 15748 763 TEST DBL (RHCS3 BIT #10) TEST T Sf% C228 
736 023737 4 001126 CMP $GDDAT,SBDDAT ;COMPARE EXPECTED 

1gce° —_ ee :0R TR WITH DATA READ FROM 

le2e? 

ieece O3ede Toaioe CRROR ize porns a ee 

12230 ;AFTER SETTING “CLR” BIT aS 

12231 : IN RHCSe TO INIT THE RH 

12232 A TEN WORD READ REVERSE FROM AN 
ige33 :EVEN WORD BOUNDARY WAS DONE 
12236 Rincse SHOLLD HAVE IR 

12237 : TOGETHER WITH UNIT NUMBER 

12238 :BUT CONTAINED WHAT IS 

12239 :GIVEN IN BAD Rtices 

12240 035750 693: 

12241 *CHECK THAT RHWC HAS 0 

igeve 035750 012737 o00000 001124 MOV #0, $GDDAT ;GET GOOD = 0 

12244 035756 017737 146100 001126 MOV JRHWC , SBODAT ;READ RHWC FOR COMPARISON 

1ee4S 0235764 023737 001124 O01126 CMP $GDDAT, SBDDAT ; COMPARE EXPECTED 

12246 :DATA WITH DATA READ FROM 

12247  RHWC 

12248 038772 o01401 BEQ 71$ :BRANCH IF GOOD 

12249 025774 104131 ERROR 131 

12250 ;AFTER SETTING “CLR” BIT #S 

12251 i IN RHCSe TO INIT THE RH 

12252 A TEN WORD READ REVERSE FROM AN 
12253 EVEN WORD BOUNDARY WAS DONE 
12255 Ri IWC SHOULD HAVE O 

12256 :BUT CONTAINED WHAT IS 

12257 :GIVEN IN BAD RHWC 

12258 O35776 718: 

12259 

12260 

12261 

leecbe + REESE KERR SERRE EL RREEEEK ER REEEREREE REE RRRE SEEKERS RES HEE ERE LAE ES 
icebs ‘ kTEST on TEST DBL (RHCS3 BIT #10) TEST U 

12265 ;* CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
reece ;* SET UP FOR A TEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 
le267 .* DO A TEN W ORD READ REVERSE FROM AN ODD WORD BOUNDARY 
12268 i THIS SHOULD SET RHCS3 BIT #10 DBL 

12270 # CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

issok is IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 

lee73 + FHEEKEEER EERE E EERE EERE EE REE ERE REE RRRE REE REE RA RHEE SHAE REESE EEE 
12274 035776 oo0004 +4764: SCOPE 

1227S 036000 012706 001000 MOV aSTACK, SP ;RESET STACK 

12276 036004 012737 OO00EY do4ESE MOV #64, a8 TSTNM :SAVE TEST NUMBER 

12278 036012 004737 o40306 ISR PC, JeCLDISK GIVE RH INITIALIZE 

122793 ‘ CETUP UNIT N 


NUBER 
leeeo :CLEAR RHWC AND FUNCTION BITS IN RHCSi 


JOe 
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SERHAD SPT 2i-bec-s? 15:98 : Te4 TEST DBL (RHCS3 BIT #10) TEST U : SES C229 
iscsi 036016 O22737 041674 dO4E4C CMP aCMNDTM, COMND ;1S TU THERE 

ibee3 0360e4 001103 BNE TST6S ;BRANCH IF TU NOT THERE 

1ee84 

13566 o2602% 0127 9 i UP AW A. TEN WORD Re ROU + oe 8 ace AN ODD WORD BOUNDARY 
lees 6 12701 O00003 

ieces O03603e Ole70e 903002 MOV sat O00, Re BRO an OSS one OF Day 

iscay Stats pieces OSeSes i$: row en ers HOVE THREE SeS2S INTO BUFFER 

1 

leeSe O36044 001374 BNE 1$ :BRANCH IF THREE NOT DONE 

12293 036046 O1le777 OO3002 146010 MOV #BF ODD, JRHBA ;SET = ADDRESS TO START 

1ee34 :FROM AN ODD WORD BOUNDARY 

sce O0360S4 012777 177766 146000 MOV #-10.,@RHWC ;WORD COUNT TEN 

lees? 036062 904077 146552 JSR RO, JCOMND ;GO TO DO COMMAND 

iccas 036066 004200 REVRED ;REVERSE READ 

12300 ;CHECK THAT RHCS3 HAS DBL 

He 036070 O0i2737 OO02000 001124 MOV OBL , SGCODAT ;GET GOOD = 2000 

12303 036076 017737 146030 O0112&6 MOV AJRHCS3, SBODAT ;READ RHCS3 FOR COMPARISON 

12304 036104 023737 OO011e4 O01126 CMP SGDDAT ; SBDDAT ; COMPARE EXPEC 

2305S :;DATA WITH DATA READ FROM 

12306 ;RHCS3 

12307 O36iie 001401 BEG 6S$ ;BRANCH IF GOOD 

12308 036114 104124 ERROR 1e4 

12309 ;AFTER SETTING “CLR” a aS 
12310 ;IN_RHCSe TO INIT THE RH 

le3il :A_ TEN WORD READ REVERSE Hat AN 
le3le :0DD WORD BOUNDARY WAS DONE 

12313 ; THEN 

istic ;RHCS3 SHOULD HAVE DBL 

12316 BUT CONTAINED WHAT IS 

12317 ;GIVEN IN BAD RHCS3 

12318 036116 6S$: 

12319 036116 942777 OO0076 145734 BIC #76,@RHCS1 3 CLEAR FUNCTION BITS 

12320 ;CHECK THAT RHCS1 HAS RD 

1636t 036124 012737 oO4200 001124 Mov #RDY!DVA, SGODAT GET GOOD = 4200 

12323 036132 017737 145722 001126 MOV @RHCS1 , SBODAT ;READ RHCS1 FOR COMPARISON 

le3e4 036140 023737 O01124 OO11e26 CMP $GDDAT ; SBDDAT ; COMPARE EXPECTED 

igse> s DAT Wee) WITH DATA READ FROM 

le3e7 036146 00:401 BEG 67$ :BRANCH IF GOOD 

le3e8 O36150 id41es ERROR les 

12329 ;AFTER SETTING oft a 8S 
12330 i IN HCSe TO INIT THE R 

12331 A_ TEN WORD READ REVERSE FROM AN 
isze ODD, WORD BOUNDARY WAS DONE 
12334 :RHCS1 SHOULD HAVE RDY!DVA 

12335 ;=4200 

12336 ;BUT CONTAINED WHAT IS 
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036152 


0361Se 
036160 


036166 
036174 


O36e02 
036204 


036206 
036206 
036214 
036222 


036230 
036232 


036234 


012737 
053737 


017737 
023737 


001401 
104126 


012737 


017737 
023737 


000100 
005010 


0 
4) 
14S676 0 
0011e4 O 


000000 001124 


14S642 001126 
001124 001126 
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2:48 T64 


KOe 


TEST DBL (RHCS3 BIT #10) TEST U 
;GIVEN IN BAD RHCS1 


67$: 
é “CHECK THAT RHCS2 HAS I 
MOV #IR,$GODAT ;GET GOOD = 100 
BIS UNTt. $GDDAT : INCLUDE UNIT NUMBER 
MOV ORH.S2,$BD0AT  ;READ RHCSe FOR COMPARISON 
CMP $GDDAT; $BDDAT COMPARE EXPECTED 
ara UTTH Ona READ FROM 
BEO Sat :BRANCH IF GOOD 
ERROR 126 
;AFTER SETTING “CLR” BIT ae 
i IN RHCS2 TO INIT THE R 
A TEN WORD READ REVERSE FROM AN 
$900 WORD BOUNDARY WAS DCE 
Riese SHOULD HAVE IR 
: TOGETHER WITH UNIT NUMBER 
:BUT CONTAINED W 1s 
ae :GIVEN IN BAD riicse 
: -CHECK THAT RHWC HAS O 
MOV #0, SGDDAT ;GET GOOD = 0 
MOV DRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
CMP $GDDAT, $SBDDAT : CORE ARS EXPEC 
ATA A WITH DATA READ FROM 
BEG 71% i BRANCH IF GOOD 
ERROR i231 
;AFTER SETTING wCLR” BIT aS 
; IN RHCSe TO INIT THE RH 
:@ TEN WORD READ REVERSE FROM AN 
Reon BOUNDARY WAS DONE 
HWC SHOULD HAVE O 
‘Bur CONTAINED WHAT IS 
write GIVEN IN BAD RHWC 


= FSESSSAAERESSHEKERESHRERSREEKAKRAAKAHAELAKAAEAHKRKSARASHLHRASSPELE 
‘TEST 6S TEST DBL (RHCS3 BIT #10) TEST V 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 


DO A ELEVEN WORD READ REVERSE FROM AN EVEN WORD BOUNDAR 
THIS SHOULD SET RHCS3 BIT #10 DBL 

CHECK RHCS3 

CHECK RHCS1,RHCS2, RHBA, RHBAE, RHWC 

IF MAG. TAPE NOT USED. THIS Teer fs NOT DONE 


fp EFF RSE SEERA RERESE AERA E SEAS SE SERA LER HS ELAELAAEL EASTER LELS FEARS 


«ke ee ee 


BS UP FOR A ELEVEN WORD READ pg SE FROM AN EVEN en eats 


ah maACY11 ee te 
-Pll 21-DEC-7 


CERHAD .P 


De ee ee ee 
fururururoforor t+ 


SELELLLL 
TU bb be he 


ey 
36236 
036242 
036250 


036eS4 
036262 


036264 
036270 


036274 
036300 
836304 

6304 
036312 
036329 
036324 
036326 
036334 
036342 


036350 
0363Se 


036354 
036354 


036362 
036370 
036376 


036404 
O36406 


000004 
012706 
012737 


004737 


022737 
001103 


Ole701 
012702 


012722 
005301 


b12%77 
012777 
004077 
004200 


012737 


042777 
012737 
017737 
023737 


001401 
104125 


2i-DeEC 


12:48 

001000 
000065 
040306 


041674 


oocoo3 
003000 


O0S2eSes 


003000 
177765 
146314 


002000 


14SS72 
001124 


000076 
004230 


14S464 
001124 


OO46S6 


CO4640 


145SS2 
145542 


001124 


001126 
001126 


145476 
001124 


001126 
001126 
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76S 


TST6S: 


1$: 


65S: 


LOe 


TEST DBL (RHCS3 BIT #10) TEST V 


SCOPE 
MOV aSTACK, SP ;RESET STACK 
MOV 86S, aetoTNM :SAVE TEST NUMBER 
R PC, JaCLDISK ;GIVE_RH INITIALIZE 
din ;SETUP U NIT NUBER ; 
;CLEAR RHW RH AND FUNCTION BITS IN RHCS1 
CMP #CMNDTM,COMND 1 
BNE TST66 ;BRANCH IF TU NOT THERE 
-SET UP FOR A ELEVEN WORD count REVERSE» FROM AN EVEN WORD BOUNDARY 
oe SBPEVEN, Re TART an Be WORD BUFFER 
wt sant CEN w BRo® OUNDF..<Y 
MOV as2ses, (R2)+ Bue THR E Gates INTO BUFFER 
DEC Cou NT 
BNE a *BRANCH IF THREE NOT DONE 
MOV SBFEVEN, QRHBA ;SET BUS ADDRESS TO START 


FROM AN EVEN WORD BOUNDARY 
MOV #-11.,@RHWC ;WORD COUNT ELEVEN 


JSR RO, JCOMND ;GO TO DO COMMAND 

REVRED :REVERSE READ 

CHECK THAT RHCS3 HAS DBL 

hov #DBL,$ SER Bat ;GET GOOD = 2000 

ORS BERGER SBREAY Samant ESnEELGorParzso™ 
Be ra TH BATA READ FROM 

BEQ 65S :BRANCH IF GOOD 

ERROR 124 
OF TER SETTING *oLR BIT aS 
i IN RHCSe TO INIT THE R 

A ELEVEN WORD READ REVERSE FROM AN 

:EVEN WORD BOUNDARY WAS DONE 
;RHCS3 SHOULD HAVE DBL 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 

BIC #76, JRHCS1 ;CLEAR FUNCTION BITS 

-CHECK THAT’ RHCS1 HAS RDY!D 

Mov #RDY!DVA, SGDDAT GET Reoop = 4200 

MOV JRHCS1,S$BDDAT ;READ RHCS1 FOR COMPARISON 

CMP $GDDAT; $BDDAT ; COMPARE EXPECTED 
; a WITH DATA READ FROM 

67% :BRANCH IF GOOD 


BEG 
ERROR 125 
;AFTER SETTING “CLR” BIT #5 
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CERHAD. 


Pli 


036410 


036410 
036416 


036424 
036432 


036440 
036442 


036444 
036444 


0364Se2 
036460 


036466 
036470 


036472 
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012737 
053737 


017737 
023737 


001401 
104126 


012737 


017737 
023737 


21-DEC-77 


12:48 


000100 
005010 


145440 
001124 


ooco00 


145404 
001124 


001124 


001126 
001126 


M02 


Tes TEST DBL (RHCS3 BIT #10) TEST V 
; IN_RHCS2 TQ INIT THE RH 
id ELEVEN word he ab Re VERSE FROM AN 
iby N WORD BOUNDARY WAS DONE 
iRHCS SHOULD HAVE RDY!DVA 
Ty “CONTAIN x WHAT IS 
A 


13:06 PAGE 233 


- GIVEN IN RHCS1 
’ »CHECK THAT RHCS2 HAS IR 
MOV #IR,SGDDAT ;GET GOOD = 100 
BIS UNIT. $GDDAT INCLUDE UNIT NUMBER 
MOV ORHCS2,$B8DDAT ;READ RHCS2 FOR COMPARISON 
CMP $GDDAT; SBDDAT iSavecutT 
;DATAW i'd Hi EP EAD FRO 
BEQ 69% + BRANCH IF GOOD 
tesa sae onr R LR" BIT #S 
HcSe TONG NTF THES AH 
AS RD READ REVERSE FROM AN 
even BOUNDARY WAS DONE 
in RHege SHOULD HAVE IR 
TOGETHER WITH UNIT NUMBER 
ByT CONTAZNED WHAT IS 
es VEN IN RHCS2 
; »CHECK THAT RHWC HAS ts) 
Mov #0, SGDDAT ;GET GOOD = 0 
MOV JRHWC , SBDDAT READ RHWC FOR COMPARISON 
CMP $GDDAT, SBDDAT $2 ARE LE XPECT ED 
ap WITH DATA READ FROM 
BEQ 71% + BRANCH IF GOOD 
ERROR 131 
;AFTER SETTING *CLR™ BIT aS 
i IN RHCSe TO INIT THE RH 
A ELEVEN WORD READ REVERSE FROM AN 
:EVEN WORD BOUNDARY WAS DONE 
HWC SHOULD HAVE O 
BUT CONTAINED WHAT IS 
7 :GIVEN IN BAD RHWC 


Le tare ae gg Ol att ca eee 
TEST 66 TEST DBL (RHCS3 BIT #10) TEST W 


th 
$ CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 


SET UP FOR A ELEVEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 


SEG 0232 


NOe2 


RHADO macy 30< 1046) 21-DEC-77 13:06 PAGE 234 
s RHAD. Pi 21-DEC-77 12:48 Tob TEST DBL (RHCS3 BIT #10) TEST Ww SG 0233 
12505 ;* DO A ELEVEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 
12506 :* THIS SHOU ULB NO T SET RHCS3 BIT #10 DBL 
13206 SEEK RNEST. RHCS2, RHBA,R 
13508 :#* IF MAG. RCSL NOT USED. THIS : eects IS NOT DONE 
1310 + - SREFSERESSAEEEKEEAESSAASSSSASSAAASKRASASSSKSSSESSSFSRSESRSEASSHS 
iesie 035472 ocoo004 tSTe6: SCOPE 
12513 036474 O12706 901000 MOV aSTACK, SP ;RESET STACK 
1es14 036500 012737 OO00066 ocO4ESe MOV #66, ae tSTNM :;SAVE TEST NUMBER 
1esig 036506 004737 O40306 ISR PC, JSCLDISK ;GIVE_RH INITIALIZE 
1251 :SETUP UNIT R 
12518 i CLEAR RWC AND FUNCTION BITS IN RHCS1 
12519 036512 022737 041674 OO4640 CMP SCMNDTM,COMND ;IS TU THERE 
13581 036520 901103 BNE TST67 ;BRANCH IF TU NOT THERE 
is255 
12524 -SET UP FOR A ELEVEN WORD READ O REVERSE FROM AN ODD WORD BOUNDARY 
iSese Oseese 15702 posdoe ie - rtlees CORT THREE HORD BUFFER 
15258 STR AN"OBS WORD BOUNDARY 
12528 036532 012722 OSe2Se5 1S: MOV ss2ses, (Re)+ MOVE THREE S2S2S INTO SUFFER 
12529 036536 005301 DEC Ri + COUN 
12530 5 001374 BNE 1$ :BRANCH IF THREE NOT DONE 
12531 O36542 012777 o03002 145314 MOV +BF ODD, JRHBA SET BUS ADDRESS TO START 
lesse FROM AN ODD WORD BOUNDARY 
12533 036550 012777 177765 145304 MOV #-11.,3RHWC ;WORD COUNT ELEVEN 
12535 036556 004077 146056 JSR RO, JCOMND ;GO TO DO COMMAND 
12536 036562 004200 REVRED :REVERSE READ 
12538 -CHECK THAT RHCS3 HAS O 
12539 036564 612737 oO0000 001124 MOV #0, SGDDAT ;GET GOOD = O 
12541 036572 017737 145334 001126 MOV QRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
12542 036600 623737 OO0ll2e4 OOlics CMP $GDDAT; SBDDAT ; COMPARE EXP 
12643 spare MET DATA READ FROM 
1254S O36606 001401 B $ :BRANCH IF GOOD 
12546 036610 104124 Beg oR 638 
12547 ;AFTER SETTING "CLR" BIT aS 
12548 :IN RHCSe TO INIT THE RH 
12549 :A ELEVEN WORD READ REVERSE FROM AN 
iseec ;00D WORD BOUNDARY WAS DONE 
12552 :RHCS3 SHOULD HAVE O 
12583 ;BUT CONTAINED WHAT Is 
12555 036612 éSS: : 
12556 O366le 042777 OOD07E 145240 BIC 876, 3RHCS1 ;CLEAR FUNCTION BITS F 
12557 CHECK THAT’ RHCS1 HAS RDY!DVA ‘ 
12558 036620 012737 OO4200 001124 hov #ROY!DVA,SGDDAT ;GET GOOD = 4200 
12560 036626 017737 14S226 oO01126 MOV JRHCS1,S$BDDAT  ;READ RHCS1 FOR COMPARISON 


Oy 


BO3 


te edie a0< 108) A i DEC-77 13: 06 PAGE 235 


21-DEC- 46 Tee TEST NBL (RHCS3 BIT #10) TEST W 

4 3737 001124 301126 CMP $GDDAT,SBDDAT  ;COMPARE EXPECTED 
teseh vaamanesin Near Sige: :DA uF WITH DATA READ FROM 
12563 
teers S364 (41% BEon {28 seotepnians 
1c2Pe sAFTER SETTING Fhe BIT #S 
12567 ; IN RHCSe TO INIT RH 
12568 A ELEVEN WORD BN ad MEE VERSE FROM AN 
12569 900 WORD BOUNDARY WAS DONE 
12570 
13801 RCS! SHOULD HAVE RDY!DVA 
le 
12573 :BUT CONTAINED WHAT IS 
12574 :GIVEN IN BAD RHCS1 
1eS75 036646 67$: 
12576 » CHECK neat RHCS2 HAS IR 
12577 O36646 012737 O00100 001124 Mov $GDDAT GET GOOD = 100 
12578 0366S4 053737 9005010 O01124 Bis Sart’ $GODAT : INCLUDE UNIT NUMBER 
12580 036662 017737 14S202 001126 MOV JRHCS2, SBDDAT ; READ RHCS2 FOR COMPARISON 
12581 036670 023737 OO11le4 O01126 CMP $GDDAT , SBDDAT COMPARE EXPECT 
1eoge DATA 4a TH DATA READ FROM 
12584 036676 001401 BEG aes : BRANCH IF GOOD 
1eS8S 036700 104126 ERROR 126 
12586 ;AFTER SETTING “CLR” BIT aS 
12587 i IN RHCSe TO INIT THE 
12588 A ELEVEN WORD READ REVERSE FROM AN 
12589 ODD WORD BOUNDARY WAS DONE 
12590 ; THEN 
12591 AWC SHOULD HAVE IR 
12592 o 
12593 TOGETHER WITH UNTT NUMBER 
12594 BUT CONTAINED Wi 1s 
12595 :GIVEN IN BAD Riese 
12596 036702 69S: 
12597 -CHECK THAT RHWC HAS O 
1eo38 036702 O12737 oO0000 o01124 MOV #0, $GDDAT ;GET GOOD = O 
12660 036710 017737 145146 OO1126 MOV JRHWC , SBDDAT ;READ RHWC FOR COMPARISON 
12601 036716 623737 OO112e4 O01126 CMP $GDDAt, SBDDAT ; COMPARE EXPECTED 
1c606 para are WITH DATA READ FROM 
12604 036724 o01401 BEG 71$ :BRANCH IF GOOD 
12605 036726 104131 ERROR 131 
12606 ;OF TER SETTING “CLR” BIT #S 
12607 jINER HCS2e TO INIT THE RH 
12608 A ELEVEN WORD READ REVERSE FROM AN 
eat Pen WORD BOUNDARY WAS DONE 
leeli RHWC SHOULD HAVE 0 
letle ‘BUT C CONTAINED WHAT IS 
12612 fs :GIVEN IN BAD RHWC 
12614 0236720 7is: 
12615 
12616 
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tSeig  FPeeE LESSEE AEE SSAA EEE SESSA ESAS EEE EEES ESE E SEES ESSERE SE SSE RES 
oe  STEST 67 TEST DBL (RHCS3 BIT #10) TEST x 
1 
; AR T Ss YSTEM BY ONTRO R EAR (RHCSe BIT aS) 
ise53 : SE Ta ee fait HoRB REAB REVERSE FROM AN GOD HORD BOUNDARY 
lebe3 :# 
be4 ta EN RO R oF Vv’ 2 ET ROM AN ODD WORD BOUNDARY 

1sPSe ;* are ones NOT SET Eve Bs BIT #10 DBL 
iSese CHECK A RH RHCS2, RHBA Cc 

7 * 
ishse :# IF MAG. ch, NOT O cep thre fear IS NOT DONE 
12630 WG) Bn nn eaten ree eae > ee ee 
126 67 0 T67: S 
isp3s 838538 bi 9982 001000 Rov aSTACK, SP ;RESET STACK 
‘sess 036736 912737 oO00067 oOOd4ESE MOV #67, aetSTNm : SAVE TEST NUMBER 
12635 036744 004737 040306 JSR PC, J#CLOISK ; GIVE RH INITIALIZE 
12636 ; SETUP pal IT NUBE 
1e637 : CLEAR Cc AND FUNCTION BITS IN RHCSi 
isoae 036750 022737 O41674% OO04640 CMP aCMNOTM, COMND :1S TU THERE 


12640 035756 001106 BNE TST70 ;BRANCH IF TU NOT THERE 


12643 SET UP Ay A TEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 
12644 036760 01270: o00003 MOV s;COUNT OF THRE 

1264S 036764 Ole702 003002 MOV sat oo, Re ;START THREE WORD BUFFER 
12646 ;FROM AN ODD WORD BOUNDARY 
12647 036770 Ole722e oSe5e5 1S: MOV #52525, (R2)+ ; MOVE THREE S2S2S INTO BUFFER 
12648 036774 005301 DEC Ri UNT 

12649 036776 001374 BNE 1S : BRANCH IF THREE NOT DONE 
12650 037000 012777 oO03002 145056 MOV #BFODD, JRHBA SET BUS ADDRESS TO START 
12651 ROM AN ODD WORD BOUNDARY 
12652 037006 012777 177766 14S046 MOV #-10. ,aRHWC ;WORD COUNT OT TEN 

12653 037014 052777 900010 145046 BIS sBAI, SRHCS2 ;SET BAI’ IN RHCS2 

12655 037022 004077 145612 JSR RO, JCOMND ;GO TO DO COMMAND 

ts) 037026 004200 REVRED REVERSE READ 

12658 CHECK THAT RHCS3 HAS O 

12653 037030 012737 oo00000 001124 Mov #0, SGDDAT ;GET GOOD = 0 

12661 037036 017737 145070 o01126 MOV JRHCS3,S$8DDAT  ;READ RHCS3 FOR COMPARISON 
lebbe 937044 023737 OOlie4 O011le6 CMP $GDDAT. SBDDAT i COMPARE EXPECTE 

1s653 DAT °. WITH DATA READ FROM 
1266S 037052 901401 BEG 653 ‘BRANCH IF GOOD 

12666 037054 104124 ERROR 124 

12667 ;AFTER SETTING “CLR” BIT 85 
12668 i IN RHCS2 TO INIT THE R 

12663 A TEN WORD READ REVERSE FROM AN 
12670 00D WORD BOUNDARY WAS DONE 
12671 sMITH BAI IN RHCS2 SET 


DO3 
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CERHAD.P11 21-DEC-77 12:48 Tb? TEST DBL (RHCS3 BIT #10) TEST x 
“ :RHCS3 SH HAV 
16623 BUF BOR TATNED WM r 1S 
12e7 OVEN IN BAD RHCS 
> 7056 65S: 
ieee BaeEE «oue7r? oo0oT «144774 BIC #76, 9RH /CLEAR FUNCTION BITS 
12678 -CHECK THAT’ acest ‘Was R ROY! OV 
18673 037064 012737 oO4e00 901124 hov #RD» !DVA, SGDDAT Gey Ae000 = 4200 
1seB° 37072 017737 144762 001126 MoV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
12682 037100 023737 001124 OOll2e CMP $GDDAT’ $BDDAT Sere at EXPECTED 
12683 {ATR WIT A READ FROM 
1DB84 
iseee Osriis Toutes PERon fae ;BRANCH IF GOOD 
ieee ;AETER SETTING “CLR™ BIT aS 
1DB88 !IN RHCS2 TO INIT THE R 
12689 !Q TEN WORD READ REVERSE FROM AN 
13690 ODD WORD BOUNDARY WAS DONE 
12631 WITH BAI IN RHCS2 SET 
12633 :RHCS1 SHOULD HAVE RDY!DVA 
4 
12695 BUT CONTAINED WHAT IS 
13696 :GIVEN IN BAD RHCS1 
i269? 027112 675: 
12698 CHECK THAT RHCS2 HAS IR!BAI 
12699 O37112 012737 000110 001124 hov WIR!BAI,SGDOAT ;GET GOOD = 110 
1e70G 037120 083737 O0S010 001124 BIS UNIT. sabDaT ‘INCLUDE UNIT NUMBER 
12702 037126 017737 144736 oO01126 mov DRHCS2, $BDDAT —; READ RHCS2_FOR COMPARISON 
13703 O37154 623737 001124 OO11De CMP $GDDAT. SBDDAT ; COMPARE EXPECT 
12704 ATA WITH DATA READ FROM 
12705 HCS2 
12706 037142 001401 BEG 69S oS IF GOOD 
1270? O37144 i04126 ERROR 126 
12708 ;AFTER SETTING “CLR” BIT as 
iB7a9 IN RHCS2 TO INIT THE RH 
13710 ‘A TEN WORD READ REVERSE FROM AN 
12711 : 000 WORD BOUNDARY WAS DONE 
erie WITH BAI IN RHCS2 SET 
tery t RHCSe SHOULD HAVE IR!BAI 
le716 TOGETHER WITH UNIT NUMBER 
1B7 I? 'BUT CONTAINED WHAT IS 
12718 :GIVEN IN BAD RHCS2 
12719 037146 69S: 
12720 “CHECK THAT RHWC HAS O 
12721 037146 012737 000000 c01124 hov #0, SGDDAT ;GET GOOD = 0 
12723 037154 017737 144702 001126 MOV QRHUC,SEDDAT ©; READ RHWC FOR COMPARISON 
le7e4 037162 023737 OO1124 OOllse CMP SGDDAt. $BDDAT i COMPARE EXP 
18726 ORT RTA WITH DATA READ FROM 
a 
12727 037170 001401 BEG 71% ‘BRANCH IF GOOD 
12728 837172 104131 ERROR 131 
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SERNA e li  eivoeeee> as 4B 767 «TEST DBL (RHCS3 BIT #10) TEST x 


12729 ;AFTER SETTING ToL” BIT aS 
12730 i IN RHCS2 TO INIT THE R 
leval A TEN WORD READ REVERSE FROM Ati 
lerse ‘ODD WORD BOUNDARY WAS DONE 
18733 uh iN H BAI IN RHCS2e SET 
12734 
lo73s :RHWC SHOULD HAVE 0 
12736 :BUT CONTAINED WHAT IS 
12737 : GIVEN IN BAD RHWC 
le738 O37174 718: 
1e7393 
12740 
le74] 
le74e2 
12743 
12744 
1e74s Rr Ee ee 
12746 SRTEST 7 END OF ONE R 
1e747 % THIS IS THE END OF Tes! FOR ONE RH 
12748 1% IF THERE 8 RE MORE RH THEN THE PROGRAM 
12749 is JUMPS TO TEST 2 FOR NEXT RH TEST 
12750 :# END PASS IS REACHED ONLY AFTER ALL RH ARE COMPLETE 
12751 + + FSRSRAESERERESAFRKAASKSKRSAAAAAERAARESERSAAEESASKH SASS SFE SESS HE 
12752 037174 o00004 t$170: SCOPE 
12753 037176 012737 O00001 o01212 MOV #1,STIMES ; 1 ITERATION 
12754 037204 005037 177776 CLR PS SAP INS TATE PS TO 0 
12755 037210 104401 037216 TYPE 6S$ i; TYPE ASCIZ STRING 
12756 037214 OO0414 BR 4$ GET OVER THE ASCIZ 
12757 -:65$: .ASCIZ <15><«12>/END OF +éST FOR RH NOV 
12758 037246 64s: 
12759 037246 013746 OO05510 MOV WORUNT, -(SP) ;GET WORKING RH NUMBER LEFT 
12760 037252 01370e 005506 MOV TSTUNT. Re GET TOTAL NO OF RH FOUND 
12761 037256 162602 SuB (Epos. 7,8 NO OF RH TESTED 
12762 037260 006302 ASL Re : INDEX FOR | RH TESTED 
12763 0372 Ol6e46 O0S436 MOV FRHNM(R2),-(SP) : TYPE OF RH NO. 
12764 037266 104405 TYPDS 
12765 037270 104401 037276 TYPE 67% ;; TYPE ASCIZ STRING 
12766 037274 OO00410 BR bes :GET OVER THE ASCIZ 
12767 --67$: .ASCIZ BASE 7’ 
12768 037216 tbs: 
12769 037316 013746 oOO40ED MOV RHCS1,-(SP) ; TYPE BASE ADDRESS 
12770 O327322 i9440e TYPOC 
12771 037324 104401 037332 TYPE £34 : 3 TYPE ASCIZ STRING 
12772 037330 O00421 BR 68s :GET OVER THE ASCIZ 
15573 naravy ing: -ASCIZ ¢«15><12>/TOTAL nd’ OF ERRORS ON THIS PASS- 
12775 037374 013746 001112 MOV SERTTL,-(SP) ; TYPE TOTAL NO OF ERRORS 
12776 037400 104405 TYPDS 
12777 037402 104401 oO37410 TYPE 71% ;; TYPE ASCIZ STRING 
12778 037406 oo0402 sah nes 70$ tm ::GET OVER THE ASCIZ 
-* iH ‘. < >< 7 s 
12780 037414 44g: 
12781 037414 104401 027422 TYPE 73% ;; TYPE ASCIZ STRING 
1e7ee 037420 oO0040e BR 28 ::GET OVER THE ASCIZ 


s7ae: .ASCIZ 15><l@> 


FO3 
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12785 O374e6 905037 OOlile CLR SERTTL ;CLEAR TOTAL NO OF ERRORS 
i2786 O3743e O00S337 005519 DEC WORUNT ;DECREASE NO. OF RH TESTED 
e787 8037436 001402 BEG 

. 037440 000137 0106i0 JMP $Te 
12789) «(037444 «#013737 OOSS0& OCSS10 18: MOV TSTUNT, WORUNT ;MAKE WORKING BH SAME 


ie730 ;AS TOTAL RH 
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0374Se 


037572 


037574 
037574 
037600 


30; 10465 


21-DEC- 


01 
oS0040 
000043 


104401 
000433 


l2 


037557 
001100 


0375S4 
oo004e2 


377 
O4e41e 
0S51S01 


037602 


GO3 


END OF PASS ROUTINE SES 0239 
.SBTTL END OF PASS ROUTINE 


5 | EEREEREREEERERRER SEER RERERSEE REESE SEEDERS SESE SESE REO REESE SS 
; #INCREMENT THE PASS NUMBER (S$PASS) 

;*#TYPE “END PASS S8XXXXX" (WHERE XXxXXx IS A DECIMAL NUMBER) 

;#IF THERES A MONITOR GO TO IT 

;#IF THERE ISN’T JUMP TO TSTe 


2i-DEC-77 13:06 PAGE 240 
:48 


SEOP: 
SCOPE 
LR STSTNM :;ZERO THE TEST NUMBER 
CLR STIMES ::ZERO THE NUMBER OF ITERATIONS 
INC SPASS !: INCREMENT THE PASS NUMBER 
001100 BIC #100000,$PASS ;:D0N'T ALLOW A NEG. NUMPRER 
DEC (PC)+ ::LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN ;;YES 
MOV (PC)+,a(PC)+ : RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE SENDMG ;;TYPE “END PASS a” 
MOV $PASS,-(SP) ::SAVE $PASS FOR TYPEOUT : 
TYPDS ::GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE SENULL :: TYPE A NULL CHARACTER 
$GETH2: MOV de42, RC ::GET MONITOR ADDRESS 
SDOAEN ::BRANCH IF NO MONITOR 
RESET !;CLEAR THE WORLD 
SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
NOP :: SAVE ROOM 
NOP ::FO 
NOP :;ACTI1 
SDOAGN: 
MP acPC)+ ; ; RETURN 
$RTNAD: .WORD TSTe 


OO S$ENULL: .BYTE -1,-1,0 »:;NULL CHARACTER STRING 
: 1g SENOMG: [ASCIZ <18><12>/eNnD PASS’ #7 


Mt 


-SBTTL SUBROUTINES 


jp PER EEER ERE EE EERE EE SERS EAELE RS RAPES ARREARS ES RRE SAE RAS ERE SER EEE 
;* THIS ROUTINE HANDLES TIME OUT TRAPS THROUGH LOC. 4 
5 FREER E SEERA RELA E TEESE LEE EA LER EEE SEE ESEALE SESE RR EE SHAE E SEES ES 


TIEOUT: 
TY 


& 
BR 64 
+;65$: ASCIZ <1 


g 3; TYPE ASCIZ STRING 
::;GET OVER THE ASCIZ 
»><12>/TIMEOUT ACCURED THROUGH LOCATION 4 FROM PROGRAM FL 
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767 
162716 O0000e SUB ge, (SP) , TYPE PC 
104402 TYPOC 
104401 037704 TYPE 67$ 33 TYPE ASCIZ 
OVER T 


000410 BR 63 is 
-ASCIZ «15><«12)/PSW WAS 


104402 TYPOC 
0377e6 000137 043104 JMP SSCOPE ;RETURN TO TEST 


3 5 SEEESSEELELAHSEESHESEA ERE LAE SLL EESLAS SEE SERE SES SESS HAS SSH SLES ES 
1% THIS ROUTINE HANDLES PARITY ERRORS 
os SHESSSSEFSRERERSRSSAFSSRSHESSSASAESSSSRERARESEHSSES HAS SFR FA EH LAES 
037732 PARITY: 
037732 104401 637740 TYPE 65$ ;; TYPE _ASCIZ STRING 
037736 OO0417 BR 4§ 54557 OVER THE ASCIZ 
-:65$: .ASCIZ (15><12>/PARITY TRAP THRU VECTOR 114/ 
037776 64s: 
104401 o40004 TYPE 67% ;; TYPE ASCIZ STRING 
000413 BR bes ::GET OVER THE ASCIZ 
iig7s: -ASCIZ <15><12>/FROM PROGRAM PC) 7 
162716 o00002 SUB #2, (SP) ;TYPE PC 
o4co4s TYPE 69% ;;TYPE ASCIZ STRING 
BR 68s ::GET OVER THE ASCIZ 
-ASCIZ <15><12>/PSW WAS’ / 


104402 TYPOC 
104401 040074 TYPE 
040072 ooc4el BR ::GET OVER THE ASCIZ 
abe .ASCIZ ><1>/HIGH ERROR ADDRESS REGISTER 


O40136 O17746 145354 iomy MOV JHERADD , - (SP) ; TYPE HIGH ERROR 
O4ci4e io4sce TYPOC 


000407 


$ 3; TYPE ASCIZ STRING 


71 
405 
cis 





I03 
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12889 O40144 104401 O401Se2 TYPE 735 ii TYPE ASCIZ STRING 

iee30 O401SO 000421 ge 2g GET OVER THE ASCIZ 

12891 pav3S: .ASCIZ <15><«12>/LOW ERROR ADDRESS REGISTER 

10892 O40214 2 P28: 

ices 240214 ? 7746 «=145E74 MOV SLERADD, -' SP) : TYPE LOW ERROR 
3 < 


0402e5 TYPOC 


CERHADO MACYi1l 30‘ 1046) 
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O40eee 
O040eee 


040274 
o40274 
040300 
040302 


040306 


040334 


104401 
ocd42e 


017746 
104402 
000137 


012777 


900207 


2i-DEC-77 
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040230 


14Se20 
043104 


000040 


143526 


1435S4 
143546 
143530 
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SUBROUTINES 


3758: 
‘ig: 


CLOISK: 


TYPE 
BR 
-ASCIZ 
MOV 


TYPOC 
JMP 


JOS 


753 


4§ T OVER 
(1e><12> MEMORY SYSTEM ERROR RE 


OMEMERR, - (SP) 
SSCUPE 


@CLR, JIRHCS2 
aJaUNIT, JRHCS2 
#77, JRHCS1 
ARH 


- 


-CLEA 
;REINSTATE UNIT N 


i+ TYPE te ST 


RING 
THE ASCI 
GIST 


R_ALL REG. 


Q. 
;CLEAR FUNCTION BITS 
;CLEAR RAWC 


CERHADD A he 30: 1046) 


CERHAD .P 


—-OWONCTUE 


040336 


040400 
040404 
040410 


o4041e 
O4O416 


O4O44C 


€i-vbec-7"% 


oo0o00 


000207 
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040336 
ooo004 


000100 
040336 
000004 


173877 
004200 


001122 


102000 
010700 


001122 


040336 


040336 


13:06 


PAGE 244 


SUBROUTINES 


;THIS CHECKS DEVICE AVAILABLE (DVA) AND READY 
: AND — ee MEDIUM ON ec 


bCISR 


CHECK: 


CHECKT: 


CHECKC: 


3$: 


73: 
f . 


KO3 


(SP) ,d@PCISR 


3$ 
JR1,a#8SBOADR 
62 


BATAILBT, (SP) 
#MOL!OPR!DRY! vv, 


7$ 
"+ eiehaaemaaiaeeat 


PC 


(MOL ) 
oF JSR 


(ROY) IN RHCS1 


DEVICE PRESENT (DPR), DEVICE PEADY (DRY) 


SAVE PC OF JSR+4 
:GET PC PC oF JSR 


O0S1 

; DONT RCHECK V BIT 

:GOTO COMMON CHECK ROUTIT.. 
-SAVE PC OF JSR+4. 


;GET Pc OF JSR 

GET REDS & DO VV CHECK AT 3% 

!GET CSI F 
sCLEAR UNWANTED BITS 


*RHCS1 SHOULD HAVE DEVICE AVAILAELE 
;AND BE READY 


pe 
om 
- 
oO KO 
=i D 
x 
-™m 
Pt 


T NO. 


IN PHL © 2 
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ll 


o4044e 


O40S60 


040S62 
O4O0S66 
040572 


2i-DEC-77 
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=e 


ooo0004 


004646 


O4O44e 
004672 


o4o44e 
004672 


144114 


040442 
g00Ge26 
004672 


OO46E6 


144146 


144126 


001126 


144070 


LOS 
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SUBROUTINES 


THIS IS A righ er WHEN NO P-C.LOCK IS AVAILABLE 


10 a 


453 ah TO = ADDRESS 
WAITED FOR 


B BIT 
-IS A TEMPORARY COUNTER 


+82cH8. 177777 ;COUNT FOR WAIT LOOP 
WAIT.T: 
MOV oe ;;PUSH RO ON STACK 
MOV R ::PUSH R3 ON STACK 
MOV :RO HAS ADDRESS OF NEXT LOCATION 
MOV RO, i :WAT P +2 1S IN WAITPC 
SUB a2; JaWAITP :WAT PC IS IN WAITPC 
MOV 3(RO)+, JBWAI TRE _jMarT ON REGISTER ADDRESS 
MOV (RO)+, deWAITBT ;WAIT ON BIT 
MOV RO, 4(SP) ? RESTORE RETURN ON STACK 
; THIS at THE TWO COUNT DOUINS FROM 177777 
‘FOR WAI ING FOR A BIT 
tsT sWATT ING FOR 1? 
BNE jBRANCH IF WAITING FOR O 
MOV ETIMCNT ,R3 :R3 HAS TEMPORARY COUNT 
1S: BIT SSWATTET, * IWAITRE -biSn REQUIRED BIT THERE 
DEC R3 i COUNT i REQUIRED BIT NOT THERE 
MOV JeTIMCNT,R3 ;SECOND COUNT DOWN FROM 177777 
2s: BIT QaHATTBT, * JWAITRE’ biden REQUIRED 817 THERE 
DEC R3 COUNT IF REQUIRED BIT NOOT THERE 
MOV DWAITRE , J#SBODAT ; REGISTER CONTENTS FOR TYPEOUT 
ERROR 135 5 HA ING FOR A BIT TO SET 
:BI i raaestion IS IN “BIT WAITED” 
jREGISTER IN QUESTION IS IN “REG ADDR” 
BR 3$ :BRANCH OUT 
;THIS HAS THE TWO COUNT DOWNS FROM 177777 
‘FOR WAITING FOR A BIT TO RESET 
4$: Mov as TINCNT ,R3 R3 HAS TEMPORARY COUNT 
MOV RO :RO HAS TEMPORARY COUNT 
S$: BIT SSHATTBT, AWAITRE’ ;1S REQUIRED BIT RESET? 


wt 
m 
«? 


0244 


MO3 
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13886 Ba8e82 BBE343 BEE ii COUN HP RtSGIRED BIT HASN'T RESET YET 
et REA Re. ee ok ae 

13 13 aa ws Mm i Ans War FF Fine FOR Ae FoF 8:4 YPEQUT a 
13016 QvOb22 017737 4442 OOLL2 Mov BWAITRE, aeSBDDAT’ REGIS TER QIN, QUES STe Nok ripeouts OOF” 
13618 Bubess oiseo0 Moy = fp a cRS tiB CE Stack INTO RO 

13020 040634 900002 RTI RETURN TO MAIN TEST 


NOS 
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13021 
ee 
13024 ; HERE 1s 8 DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
:ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, T 
1308 !PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 
i 
13028 ;WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
13029 5 THE PR 0.caN BFC 
13030 :T RESSRiCT oT INT RE “PROGRAM CAN GO ARE: - 
13031 i. IT must Be WITHIN HE T sT R CONSIDERATION 
13032 ; LOOP SWITCH T 
ek Henig chao pos ST Secth Ul dit oe Te ENDER RET SEAR oN 
13035 ie PROBRAM WILL REVERT fo" NORMAL OPE TIO, HOWEVER TF LO P ON 
13036 : TEST SHITCH IS SET AND THIS RATOR SELEC E SCOPE "Loupe 13 USED 
13037 ; THEN _ THE PROGRAM WILL L CK TO THE Cee ED POINT WHEN IT 
13038 ;COMES TO THE END OF THE TEST UNDER CONSIDERATION. 
13040 iA TER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
13041 NORMAL OPERATION WILL CONTINUE. 
13005 040636 900000 erevens 0 ;FIRST ADDRESS OF TEST 
{3042 BupEdD 037 177776 eee PS PROCE STATUS ZERO 
13046 O644 p03935 177777 oO4S064 MOV 8-1, 2ePRITEM OCEAR PREY TOUS ITEM NUMBER 
13047 O406S2 104401 O40660 TYPE 65$ i; TYPE oven THe 
13048 040656 000421 BR 4g Asetz 
13049 ii gSS: -ASCIZ ¢15><12>/THE pRodASH Was IN TEST NUMBER / 
130Si1 O40722 013746 oo046S6 : MOV QsTSTNM,-(SP)  ;GET READY TO TYPE TEST 
13052 040726 104402 TYPOC : NUMBE 
13053 040730 104401 040736 TYPE 67S 3}; TYPE ASCIZ STRING 
13054 040734 000414 BR 63 :GET OVER THE ASCIZ 
13055 cae ij675: "ASCIZ ¢15><12>/THE LOOP’ BACK PC WAS / 
13057 040766 013746 001110 > MOV JeSLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
13058 040772 104402 TYPOC 
13059 040774 104401 061223 TYPE , SCRLF 
13060 O41000 104401 04:606 TYPE 695 i; TYPE ASCIZ STRING 
13061 O41 000430 BR 68s GET OVER THE ASCIZ 
12006 aasune iib2S: "ASCIZ ¢15><12>/SET SWITéH FOR LOOP ON ERROR OR LOOP ON TEST’ 
13064 O41066 10440) 041074 : TYPE 71$ i 3 TYPE ASCIZ STRING 
13065 041072 000430 BR >0$ -:GET OVER THE ASCIZ 
1208 mes 188 54715: “ASCIZ <15><12>/TYPE THE’ FIRST PC OF THE TEST TO BE LOOPED ON/ 
13068 O41154 104401 041162 ; TYPE 738 i; TYPE ASCIZ STRING 
13069 O41160 cO042e BR 225 ET OVER THE ASCIZ 
13070 --73$: .ASCIZ <15><12>/ FoLLowed BY A CARRIAGE RETURN /<1S><12: 
13071 o4%1226 22s: 
13075 p41 558 besrie oo0002 ADD 2, (SP ;GET LPADR 
8 ( ) H 
13074 041234 ey 001106 MOV (SP)+, J#SLPADR 
13075 O412e40 104401 O41246 TYPE 75$ ;;TYPE ASCIZ STRING 
13076 041244 S00417 BR aug ::GET OVER THE ASCIZ 


BO4 
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1307 475: .ASCIZ <15>¢12>/TYPE THE PC WHERE YOU WANT 
13078 041304 o4¢: 

13079 041304 104401 041312 TYPE 773 ; i TYPE ASCIZ STRING 

13080 041310 000440 Be ?6$ ‘GET OVER THE ASCIZ . 
13081 ag77S:  -ASCIZ -«15><12>7 THE prodram TO LOOP BACK 70 FOLILOWED GY A CARRIAGE RETURN ““15 
130 041412 >is: 

13083 O414le 104410 RDOCT 

13084 O41414 012637 901110 MOV (SP)+ a#SLPERR :GET LPERR 

13085 041420 013746 001106 MOV aeSiLPADR, -(SP 

13086 041424 900062 RTI 

13087 

13088 

13089 

13090 

13091 : THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
13092 :IN MEMORY LOCATIONS - TAGED FROM “WC” TO “ECe” 

13093 :THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
13094 :AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 
13035 :ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 
13097 

13098 

13099 

13100 041426 PUTREG: 

13101 O41426 o10046 MOV RO,-(SP) 3 BUSH RO ON STACK 

13102 O41430 010146 MOV Ri’ -(SP) H R1 ON STACK 

13103 041432 01024 MOV Re’ -(SP) ::PUSH Re ON ST ACK 

13104 O414 012700 o0406e2 MOV #RHWC. RO ToT NG ADDRESS OF REG 

13105 041440 612701 d0000e MOV aWc Ri TARTING ADDRESS OF WERE SAVED 
13106 O41444 Ole702 oOo0010 MOV SRHOC-RHWC+2/2, Ri? «NUMBER OF REG. INTO Re 

13107 O414SO 013021 10$: MOV a(RO)+, (R1)+ ;SAVE HARDWARE REG. 

12108 o41452 O05302 DEC Re 

13109 041454 001375 BNE 10% 

13110 O414S6 O1260e MOV (SP)+,R2 ;;POP STACK INTO Re 

1311: O41460 012601 MOV (SP)+'RI i iBOP STACK INTO RI 

13112 O4146e 012600 MOV (5P)+°RO :POP STACK INTO RO 

131:3 O41464 9000207 RTS PC 


CO4 
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igiie .SBTTL RS DATA TRANSFER SUBROUTINE 
Bi yg SuapoUTaNe uruTes,Om HEADED 
-# 

13115 + IT ASSUMES THE RH Aree eRe ARE GC PBROPRIATELY 
i3i 3* 
13121 :# WHEN IT RETURNS FROM THI SUBRO TINE TO THE 
13186 # MAIN PROGRAM IT MEANS THE TRANSFER IS COMPLETE 
13124 :* THE CALL IS BY A JSR RO,JICOMND COMAND 
131 
13126 O41466 012037 o04E4e CMNDRS: MOV (RO)+, COMAND ;GET COMMAND 
13156 -CHECK THAT RHDS1 HAS DRY!DOPR!MOL 
13123 O41472 012737 010600 o01124 Ov #ORY! DPR! MOL, SGODAT ;GET GOOD = 1030C 
13131 O41:S00 017737 142366 001126 MOV QRHDS 1, $B0 AT s READ RHOS | FOR COMPARISON 

4 737 4 MP AT: AT COMPARE EXPECTED 
13138 041506 023737 OOl11e4 OOlice Cc $GDD PA Re 15 ae 
13134 ;RHOS1 
13135 041514 o01491 BEQ 65$ :BRANCH IF GOOD 
13136 O4i5ie6 104133 ERROR 132 
13137 ;BEFORE ANY COMMAND IS GIVEN 
13138 :RHDS1 SHOULD HAVE DRY!DPR!MOL 
13140 ‘BUT CONTAINED WHAT IS 
13141 :GIVEN IN BAD RHDS1 
1314¢ 041520 6S$: 
13144 041520 005077 i4234e2 CLR aJRHDA ; TRANSFER ON CYLINDER O 
12145 ; TRANSFER ON SECTOR O 
13147 041524 017777 143112 142326 MOV QCOMAND,@RHCS1 :SET UP COMMAND 
13148 041532 005737 OO04644 TST NOGO :I1S GO TO BE GIVEN 
13149 041536 001006 BNE 1$ :BRANCH IF NO 
13160 041540 052777 o00001 142312 BIS #GO, JRHCS1 ;SET GO 
13152 -WAIT FOR RDY BIT IN RHCS1 REGISTER TO SET 
13153 O41546 104411 WAT ; TRAP TO WAIT.1 SUBROUTINE 
13154 O41550 oO04060 RHCS1 :AND WAIT FOR RDY BIT IN 
13155 oO41552 oO0200 RDY :RHCS1 REGIST 
13156 :IF ERROR OCCURS HERE 
13157 :IT S “RDY” DID NOT 
13158 :SET FOR THE FULL COUNT 
13159 :DOWN OF THE WAIT.T SUBROUTINE 
12160 : THIS TIME IS APPROXIMATELY 
13161 LARGER THAN SOO MILLISECONDS 
13162 041554 900200 18: RTS RO 
13169 .SBTTL RPO DATA TRANSFER SUBROUTINE 
13166 :* THIS SUBROUTINE WRITE/READ/WRITE CHECK ON THE RPOY CYLINDER O, 
13167 1 TRACK O, SECT : 
13168 i+ IT ASSUMES THE RH REGISTERS ARE APPROPRIATELY FILLED. 
13165 :# WHEN IT RETURNS FROM THIS SUBROUTINE TO THE MAIN 





DOY 
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1317 :* PROGRAM IT MEANS THE COMMAND IS COMPLETE 
- -* 

1312 * THE CALL IS BY F JSR RO,ICOMND COMMAND. 

1317 
ms O415S6 012037 904642 CMNORP: MOV (RO) +, COMAND ;GET COMMAND 
4 74 417 MOV PKALK, -(SP) :GET READY TO SET vv 

g Byt a3 8 ace So ddoT BIS #GO, (SP) :GET PACK ACKNOWLEDGE COMMAND 
8 041572 012677 142262 MOV (SP5+, JRHCS1 :SET VV 
0 :CHECK THAT RHDS1 HAS VV!DRY!OPR!MOL 
1 041576 012737 oO10700 001124 MOV aVV!IDRY!DPR!IMOL,S$GDDAT ;GET GOOD = 10700 
3 041604 017737 142262 001126 MOV JRHOS1,$BD0DAT  ;READ RHOS1 FOR COMPARISON 
4 O41612 023737 OOlle4 OOlle6 CMP $GDDAT'$BDDAT ;COMPARE EXPECTED 


;DATA WITH DATA READ FRO! 


WWWWWWWWWWWWWW WWWWW WWW WWW 
950529208 ReSS@ ONIN 


1 
131 
131 
131 
i31 
131 
131 
131 
131 
131 
131 
131 
13186 ;RHOS1 
13187 041620 001401 BEQ 653 ;BRANCH IF GOOD 
13188 O41622e 104132 ERROR 132 
13189 ;BEFORE ANY COMMAND IS GIVEN 
i i 0 sRHOS SHOULD HAVE VV!DRY!DPR!MOL 
13192 :BUT CONTAINED WHAT IS 
13193 ;GIVEN IN BAD RHDS1 
i 134 041624 65$: 
13196 41624 OOSO77 142264 CLR @RHCA ; TRANSFER ON CYLINDER O 
i 132 041630 005077 142232 CLR @RHDST pid y ON SECTOR O 
13199 041634 012777 O14000 142250 MOV @ECI!FMT22,QRHOF; INHIBIT ECC 
13200 ; EORMAT AB BIT PER WORD 
13201 O41642 017777 142774 142210 MOV QCOMAND,@IRHCS1 ;SET UP_COMMAND 
13202 041650 005737 Oo4e44 TST NOGO ;1S GO TO BE GIVEN 
13203 041654 001006 BNE 1$ ;BRANCH IF NO 
13208 041656 052777 o0000: 142174 BIS #GO, JRHCS1 ;SET GO 
13206 ;WAIT FOR RDY BIT IN RHCS1 REGISTER TO SET 
13207 O41664 104411 WAT ;TRAP TO WAIT.T SUBROUTINE 
13208 041666 004060 RHCS1 ; AND re FOR ROY BIT IN 
13209 O41—E70 d00200 RDY ;RHCS1 REGISTE 
13210 ;IF ERROR OCC HERE 
13211 : ANS “RDY" DID NOT 
13212 ;SET FOR THE FULL COUNT 
13213 ;DOWN OF T IT.1 SUBROUTINE 
13214 :;THIS TIME IS APPROXIMATELY 
13215 . ;LARGER THAN SOO MILLISECONDS 
1216 041672 ocg0200 1$: RTS RO 
13638 .SBTTL TMO2 DATA TRANSFER SUBROUTINE 
i3eeG ;* THIS SUBROUTINE WRITES/READS/WRITE CHECKS ON THE TMO2-TULE 
i322i :& ON THE FIRST BLOCK FROM BEGINNING OF TAPE (BOT) 
1322e :+ IT ASSUMES THE RH REGISTERS ARE APPROPRIATELY FILLED. 
i32e3 :# WHEN IT RETURNS FROM THIS SUBROUTINE TO THE 
i3ee4 # MARIN PROGRAM IT MEANS THE COMMAND IS COMPLETE. 
~ce a’ 


EQO4 
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3226 :* ph CALL IS 
e524 3% JSR RO, JCOMND 
3229 041674 012037 oO0464e2 CMNDTM: MOV (RO)+, COAND 
3230 941700 013777 OO4660 142204 MOV SLAVE -GET SLAVE NUMBER 
3231 041706 012737 O10600 Oo11e4 MOV @MOL! bPR:ORy scobAT ; ;GET GOOD DATA 
3232 O41714 6017737 142e1Se OdD1le6 MOV JRHLS 1, $BDDA ET’ RHOS1 
3233 041722 042737 D000b2 001126 BIC eat! etT0s!B1 TO, $BDDAT ;DISREGARD BOT 
3234 041730 023737 ON11e4 001126 CMP SGDDAT,SBDDAT  : COMPARE EX XPECTED DATA WITH 
3235 :DATA READ FROM RHDS1 
3538 Buisas fo4794 Bon = t§u + BE PORE. ANY “COMMAND 
¢ ( ; r 
3238 IS GIVEN DRIVE STATUS REGISTER 
3239 3819 Not CONTAIN WHAT IS IN 
y 
13041 O41742 032777 OOo002 142122 1S: BIT #B0T, JRHOS1 iS IT ALREADY AT BOT 
3242 041750 3501035 BNE $ CH IF YES 
3243 IF NOT AT BOT GIVE A RELEND COMMAND 
3244 041752 013777 OO4%176 142100 ase REWIND @RHCS1 ;LOARM RHCS1 WITH REWIND COMMAND 
3e4S 041760 052777 OO00001 142072 Bis CS1 
3246 -WAIT FOR Oree BIT IN RHDS1 REGISTER TO SET 
3247 041766 104411 WAT ; TRAP TO WAIT. I SUBROUTINE 
3248 041770 OO407e RHOS :PAND WAIT FOR PIP BIT IN 
3249 C4i772 OS20000 PIP "RHDS1 REGISTER 
3250 :IF ERROR OCCURS HERE 
3251 :I1T MEANS “PIP” DID NOT 
3252 :SET FOR THE FULL COUN 
3253 :DOWN OF THE WAIT.T SUBROUTINE 
3254 ;THIS TIME IS APPROXIMATELY 
3255 LARGER THAN SOO MILLISECONDS 
3256 ;WAIT FOR PIP BIT iN RHOST REGISTER TO SET 
3257 041774 012737 177777 OO4E4E ;WAIT FOR PIP TO GO FROM 1 TO 2 
3e58 O42002 104411 WaT ; TRAP TO'WAIT.T SUBROUT 
3e59 O42004 004072 RHDS1 AND WAIT FOR PIP BIT I 
3260 042006 d20005 PIP :RHOS1 REGISTER 
3261 :IF ERROR OCCURS HERE 
3262 :IT MEANS “PIP™ DID NOT 
3263 :SET FOR THE FULL COUNT 
3264 :DOWN OF THE WAIT.T SU BROUT INE 
3265 :THIS TIME IS APPROXIMATELY 
3266 :LARGER THAN SOO MILLISECONDS 
3267 O42010 oO05037 oc4E4E ATO 
3268 OaIT FoR BOT BIT IN RHOS1 REGISTER TO eT 
3269 O42014 104411 WAT ;TRAP TO WAIT.T SUBROUTINE 
3270 O420ib6 dO4O7e RHDS 1 !Q@ND WAIT FOR BOT BIT IN 
3271 o42020 9o000Ge BOT :RHDS1 REGISTER 
3272 :IF ERROR OCCURS HERE 
3272 :IT MEANS “BOT” ON oT 
13274 ;SET FOR THE FULL 
13275 :DOWN OF THE WA T SUBROUTINE 
13276 :THIS TIME IS APPROXIMA 
13670 ;LARGER THAN SOO RICE TSEEDNDS 
13279 CLEAR ATTENTIONS 
13280 O42022 013746 004142 hov DCLEAR, -( SP) 
13281 42026 OS271— GOod0! BIS 8G0, (SP) 





FOY 
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13282 o42032 O12677 142022 MOV (SP)+,SRHCS1 
13585 zuarT FOR ORY BIT IN RHOS} REGISTER TO SET 
13085 O42036 1094411 TRAP TO WAIT.T SUBROUTINE 
Hess RENE SBbos a ‘mos aecisteR 

7 4204 
1358¢ : IF ERROR Occurs HERE 
13289 :1T "OR Te DID NOT 
13290 :SET FOR T Fut COUN NT 
13291 : DOwN THE WAIT. T SUBROUTINE 
13292 HIS Ime I S APPROXIMATELY 
13593 0420 $ CHECK IF COMMAND IS ncviker ican oe eee 
1 42044 es: ; CHECK 
13295 - IF IT IS REVERSE READ, EPACE FOR aro ONE BLOCK 
13°96 O42044 023777 OO4200 142576 tmp REVRED, JCGMAND re 1T REVERSE READ 
13297 O4e9S2 001035 BNE 3$ :BRANCH IF NOT 
13298 O42054 32777 001700 142030 BIS #BPI8!NML,JRHTC :800 BPI, NORMAL 
13298 O42062 042777 O000I0 142022 BIC BEPAR, JRATC :000 PARITY 
13301 042070 012777 177777 14177 MOV #-1, IRHFC ;FRAME COUNT 1 
13302 :FOR SPACE FORWARD ONE BLOCK 
13303 042076 013777 OO4e202 141754 MOV SPACFD ORHCS | :SPACE FORWARD 
13304 042104 O0S2777 OO0001 141746 aG : GO 
13305 ;WAIT FOR PIP Bit, IN RHDS1 REGISTER TO SET 
13306 O42112 104411 WAT ; TRAP TO WAIT.T SUBROUTINE 
13307 O42114 oOoK4O7e RHDS 1 :AND WAIT FOR PIP BIT IN 
13308 O4%21i& d20000 PIP :RHDS1 REGISTER 
13309 !IF ERROR OCCURS HERE 
13310 :IT MEANS “PIP™ DID Not 
1331i :SET FOR THE FULL COUN 
13312 :DOWN OF THE WAIT.T SUBROUTINE 
13313 ;THIS TIME IS APPROXIMATELY 
13314 ‘LARGER THAN SOO MILLISECONDS 
13315 ;WAIT FOR PIP BIT IN RHDSI REGISTER TO SET <a 
13316 O42120 012737 177777 cOY4e4E #-1,WATO ;WAIT FOR PIP TO GO FROM 1 TO 0 
13317 O4%2126 104411 WAT ;TRAP TO’WAIT.T SUBROUTINE 
13318 042130 004072 RHDS1 :AND WAIT FOR PIP BIT IN 
13319 042132 o20000 PIP :RHDS1 REGISTER 
13220 !IF ERROR OCCURS HERE 
13321 :IT MEANS “PIP™ DID NOT 
13322 :SET FOR THE FULL COUNT 
13323 : DOWN OF THE WAIT.T SUBROUTINE 
13324 :THIS TIME IS APPROXIMATELY 
13325 Z LARGER THAN SOO MILLISECONDS 
13326 042134 o00S027 cOo4E4E CLR WATO 
13327 ;WAIT FOR DRY BIT IN RHDS1 REGISTER TO SET 
13328 O42140 104411 WAT ; TRAP TO WAIT.T SUBROUTINE 
13329 OY4el4e O04072 RHDS 1 :AND WAIT FOR DRY BIT IN 
13330 042144 900200 DRY :RHDS1 REGISTE 
13331 :IF ERROR OCCURS HERE 
13232 IT MEANS “DRY” DID NOT 
13233 SET THE FULL T 
13334 ;UOWN OF THE WAIT.T SUBROUTINE 
13335 :THIS TIME IS APPROXIMATELY 
+ ae LARGER THAN SOO MILLISECONDS 
13337 OCHel4e 38: ;NOW GIVE COMMAND 
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cER 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
i 
l 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
i 
1 
i 
i 
1 
: 


O42e14 


O42e22 
O4e2e4 
042226 


042230 
042230 


a. yaa eet Se 
HAD. F 


21-DEC-7 


000e00 


104411 
004060 
co0edd 


2i-DEC-77 
8 


12:4 
001700 


000010 
141674 


141666 
142436 


OO4644 
ooc001 


141736 
141730 


141652 


141636 


GO4 
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TMO2 DATA TRANSFER SUBROUTINE 


#BPIS!NML,RHTC ;800 BPl NORMAL 
#EPAR. IRHTC :900 P ART TY 
JRHWC | - (SP) : GET WO RD CO 

(SP) :GET POS rive NNUMBER 
(SP), (SP) !DOUBLE WORD COUNT 

(5P GET NEGATIVE NUMBER FOR 

FRAME COUNT REGISTER 

(SP)+, JRHFC FILL FRAME COUNT 
SCOMAND, ARHCS1 ;GET COMMAND 


NOGO ;1S GO TO ~™ GIVEN 
4§ :BRANCH IF 
#GO,adRHCS1 GO 


sWAIT FOR ORY BIT IN RHOS | REGISTER TO a 
WAT TRAP WAIT. T SUBROUTI! 
RHOS 1 : WATT FOR R_DRY BIT IN 


et 

WA 1 SUBROUTINE 
S IS APPROXIMATELY 

i LARGER THAN SOO MILLISECONDS 


-WAIT FOR RDY BIT IN RHCS} REG STER TO. SET 
WAT TRAP TO T SUBROUTINE 
RHCS1 : R RDY BIT IN 

T 


ye 
IT.T SUBROUTINE 
; S 1S APPROXIMATELY 
:LARGER THAN SOO MILLISECONDS 
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THIS ROUTINE WILL ALLOW Thc CHANGE OF THE BASE 
ADDRESS FROM 17£700 TO ANY TYPED VALUE 


ABggB4  SeeNe Bs At i i Te eR tue Bec tz 
- 65S: © 15> «12> “PRESENT ‘ASE ADDRESS OF REGISTERS IS 


613746 004060 @#RHCS1,-(SP) ;GET READY TO TYPE OLD BASE 
104402 


bBoszs OMPS2E aa a ae GET OVER tHe Aactz 


©15><12>/TYPE NEW’ BASE ADDRESS FOLLOWED Py ‘CR’. 


o4y 
2348 004102 0 eHO8 RO ;GET STARTING AODRESS OF RGISTERS 
ooo024 Ri : NUMBER OF REGISTERS 
177700 : hie tRO) OLD BASE 
tg ) , URO)+ 


Mg F 20 NOT DONE 
042436 69$ ASCIZ STRING 

8s :GET 0 OVER THE ASCIZ 
C15) <12>/PRESENT VECTOR ADDRESS IS / 


002716 DeRPVEC,-(SP) ;GET READY TO TYPE OLD VECTOR ADDRESS 
042510 TYPE 71S ;;TYPE ASCIZ STRING 
000437 BR 405 'GET OVER THE ASCIZ 
owzeoe <16><12>/TYPE NEL VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY “CR 
104410 


042606 
042610 012637 02716 (SP)+, J#RPVEC ;SETUP VECTOR ADDRESS 


BizELS BSB OHPSe= oe, OE Pia Maden 


D42664 «15><«12>-/ JRESTART’ PROGROM FROM 200 OR 210 


B4525¢ eres: BR at TE OVER THE Aaciz 
042722 (15> <¢12>/NEW BASE WILL REMAIN? 


01374— GOHOEO MOV JeRHCS1, - (SP) 
iou4o; 042736 775 : :TYPE ASCIZ STRING 

042734 OOO415 BR +65 GET OVER THE ASCIZ 

mane (18> «12> “NEW VECTOR WILL REMAIN 7 


013746 002716 ) DeRPVEC,-( SP) 

043004 TYPE 793 ;; TYPE ASCIZ STRING 

043002 O00416 BR oog GET OVER THE ASCIZ 
ieee (15) <12>/UNTIL PROGRAM IS RELOADED’ 


54304C 00000 


SELELCLICCL&LIIL 
MUPUPUNUTUTUNUNe ee 
TWLWN-OWONMW SW 


= bb bs = be 
N 


WWWWWWWWWWWWWWWW) 


ti£it 
fut 
wa 
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7 12: MOe DATA TRANSFER SUBROUTINE 
13430 043042 RPVECT: 
13431 043042 104401 043050 TYPE 65$ :: TYPE ASCIZ STRING 
13432 043046 900411 BR 4g ::GET OVER THE ASCIZ 
13433 ;;65$: .ASCIZ /TRAPED FROM PC = 
13434 943072 643: 
1343S 043072 104402 TYPOC : TYPE FROM P 
13436 O43074 OCle77? O43sC4e 1376.4 MOV BRPVECT, JRPVEC 3 RESTORE TRAE RPOY VECTOR 
437 043102 00000 HALT CHANGE TO CONTINUE 
13436 
13439 
13440 
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1344e s FEES EES EFSF ES SERA HH SPAF SS 
13443 .SBTTL SCOPE HANDLER ROUTINE 

13445 +s SSKSESREAESRRARAAEEKRERAAAHASKAAKSAESEE SERA SELSSASSFSAAREF REPS HHS 
13446 tETHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
13447 : SEND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY 7:9°. 
13446 #AND LOAD THE ERROK FLAG (SERFLG) INTO DISPLAY<15:08> 

1344S $ THE SRT TCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

134S0 or 1421 LOOP On TEST 

13451 reSWil=1 INHIBIT ITERATIONS 

13452 : #SWO9=1 LOOP ON ERROR 

13453 : #SWOS=1 LOOP ON TEST IN SWR<7:0> 

13454 :#CALL 

1345S :# SCOPE ;;SCOPE=I10T 

13456 

13457 043104 SSCOPE: 

13458 043104 905037 ocD4E46 CLR WATO ;WAIT FOR BIT TO SET 

13459 :USED_IN “WAT” WAIT ROUTINE 

13460 043110 005037 oo4644 CLR NOGO ;00 GIVE GO IN COMMAND ROUTINE 

13461 043114 032777 O4O00O 136016 1S: BIT eBIT14, aSWR ;;LOOP ON PRESENT TEST 

13462 043122 OC1111 BNE YES IF SW14= 

13463 aseseSTORT OF CODE FOR THE XOR tESTERSeeen 

13464 043124 o00416 éxts 6$ ;;1F RUNNING ON THE “XOR™ TESTER CHANGE 
13465 ::THIS INSTRUCTION TO A “NOP” (NOP=240) 
13466 043126 013746 oo00004 MOV DeERRVEC,-(SP) ;:SAVE THE CONT ENTS OF THE ERROR VECTOR 
13467 043132 012737 043152 oo0004 MOV #SS, JSERAVEC ::SET FOR TIMEOUT 

13468 043140 005737 177060 TST #177060 :: TIME OUT ON XOR? 

134639 043144 012637 Oo00004 MOV (SP)+, J#ERRVEC ::RESTORE THE ERROR VECTOR 

13470 043150 000463 BR $SvLAD ::GO TO THE NEXT TEST 

13471 043152 O22b26 S$: CMP (SP)+, (SP)+ :: CLEAR THE STACK AFTER A TIME OUT 
13472 043154 Ole637 o00004 MOV (SP) +) J#ERRVEC ;;RESTORE THE “ROR VECTOR 

13473 043160 o00423 BR 73 ‘LOOP ON THF » ESENT TEST 

13474 043162 6$:;#eee8END OF CODE FOR THE xOR’ tESTERSsaes 

13475 043162 032777 OO00400 135750 BIT #81708, JSW ;;LOOP ON SPEC. TEST? 

13476 043170 001404 BEQ 2 338 

13477 043172 127737 135742 ooL1fe CMPB aSWR, STSTNM !:ON THE RIGHT TEST? SWR<7:0> 

13478 043200 001462 BEQ SOVER ‘'BR IF YES 

13479 043202 105737 001103 2s: TSTB SERFLG :;HAS AN ERROR OCCURRED? 

1348" 043206 001421 BEQ 3$ $3 F 

13481 043210 123732 001115 001103 cHPe SERMAX, SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
13483 gu3ee0 030777 001000 135712 BIT 881709, ISWR i LOOP ON ERROR? 

13485 043230 013737 OO1110 OO1106 73: MOV SLPERR,SLPADR ;:SET LOOP ADDRESS TO LAST SCOPE 

13486 043236 000443 BR SOVER 

13487 043240 105037 00110: 4g: CLRB SERFLG $s ZERO THE ERROR FLAG 

+3488 Ou3ea4 905037 301212 cLR STIMES s CLEAR THE NUMBER 0 OF TEGERATIONS TO MAKE 
i3490 043252 poo743 004000 135660 33: BIT #BIT11,aSWR : INHIBIT OTERATIDNS? 

13491 043260 001011 BNE 1$ ::BR IF YES 

13492 043262 005737 001100 TST $PASS ;;1F FIRST PASS OF PROGRAM 

13493 043266 001406 BEG 1$ a INHIBIT ITERATIONS 

13494 043270 005237 001104 INC SICNT ::INCREMENT ITERATION COUNT 

13495 043274 023737 001212 001104 CMP STIMES, SICNT ::CHECK THE NUMBER OF ITERATIONS MADE 
13496 043302 O02021 BGE SOVEP ::BR IF MORE ITERATION REQUIRED 

13497 043304 012737 OO00001 9001104 18: MOV #1, $ICNT : :REINITIALIZE THE ITERATION COUNTER 


Scena pRISIRREENRNIES <ceemenetneneeneen 


KO4 


es7 
SCOPE HANDLER ROUTINE 
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13498 O433i2 9013737 O43362 ODlele MOV 
13499 043320 10$237 00110e SSVLAD: INCB 
13500 O433e4 011637 001106 MOV 
13501 043330 011637 001110 MOV 
13802 9433 00S037 001e14 CLR 
13503 043340 112737 OO0000i 001115 MOVB 
13504 043346 0139777 001102 135566 SOVER: MOV 
1350S 043354 013716 901106 MOV 
13506 043360 O0C000e RTI 
13807 O4336e 000004 SMXCNT: 4 


sexe »STIMES 5 Rl puree 4 —_ TO 00 


::COUNT TEST N 
(SP), $LFADR ::SAVE SCOPE LOOP ADDRESS 
(SP) $LPERR ::SAVE ERROR LOOP ADDRESS 
SESCAPE tt HE ESCAPE FROM ERROR ADDRESS 
#1 SP Rea ;;ONLY ALLOW "a AE. ERROR ON NEXT TEST 
STSiNM, SOISPLAY : 3 D1aP LAY TEST NUMBER 
SLPADR, (SP) FUDGE RETURN ADDRESS 


;FIXES PS 
7;MAX. NUMBER OF ITERATIONS 
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13508 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
13510 Ree ene eee eee eee e rere rer ett nINaaY TARUER TO h €-Di 
13511 :ATHIS ROUTINE IS USED TO C 1-B1T BINARY NUMBER TO A SoO1GI" 
tele igaueeee GeCoeT To i eae i NE a wae gt 
13514 *BEFORE THE PoeketY DIGIT OF THE Ni NUMBER. LEADING ZEROS WILL ALWAYS BE 
13515 : #REPLACED WITH SPACES. 
13516 :#CALL: 
13517 :# nov NUM, - (SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
13518 :# TYPDS ::G0 TO THE ROUTINE 
13520 043364 $TYPDS: 
13521 043364 010046 MOV RO,-(SP) ; ; PUSH RO ON STACK 
13522 0433 010146 MOV R1:-(SP) PUSH R1 ON STACK 
13523 33 010246 MOV *-(5P) PUSH Re ON STACK 
13524 043372 910346 MOV R3,-(SP) :;PUSH R3 ON STACK 
1352S 043374 O10S46 MOV RS. -(SP) ;;PUSH RS ON STAC 
13526 012746 oO20200 MOV #20200, -( SP) +: SET BLANK NsHiTCH 8 AND SIGN 
13527 043402 O16605 o00020 MOV 20(SP)/RS :;GET ER 
13528 3406 100004 BPL i$ :;9R IF T IS Neos 
13529 341 40S NEG RS $3 NARY DROFR Nee Pos. 
13530 34le 112766 oo00SS 000001 MOVE #’-,1(SP) i ; MAKE THe act oliniee 
13e33 pusuoe o1e709 043600 sue nov 23081 R3 ay UP T OUTPUT 
® $3 
13533 Baa4 e723 o000040 MOVB R3)+ at 3 ea Eee ha Ne NTE TO A BLANK 
13534 043432 basooz 2s: CLR R2 +; CLEAR 
1353S 043434 016001 043570 MOV SS rau cRO, R1 :GET Suet BCP ANT 
13536 O4344O 160105 3$: SUB 1,R5 :FEORM, THIS BCD DIGIT 
13236 Sasuua boscbS Pic as + OT CREASE THE BCD DIGIT BY 1 
13539 043446 000774 BR 3$ sie 
13540 O0434SO 060105 4$: ADD R1,R5 ;;ADD BACK THE CONSTANT 
13541 043452 005702 TST Re 3; CHECK IF BCD DIGIT=0 
13243 O4aNee TOSTIE fcTa CSP) FILL DOING LEADING 0°S7 
13544 043460 100407 BMI 7$ sist te D ed 
1354S 043462 106316 Ss: ASLB (SP) ::MSD? 
13546 043464 103003 BCC 6S :;BR IF_NO 
13547 O43466 116663 O00001 177777 MOVB 1(SP),-1(R3) :;YES--SET THE SIGN 
13548 043474 OS2702e o00060 S$: BIS #°0,Re :;MAKE THE BCD DIGIT ASCII 
13549 043500 O0S2702 o00040 7$: BIS . "Re ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
13550 043504 110223 MOVB Re, (R3)+ ::PUT THI RACTER IN THE OUTPUT BUFFER 
13551 043506 20 TST (RO)+ :;JUST INCREMENTING 
13552 043510 O20027 000010 CMP RO, #i0 :;CHECK THE TABLE INDEX 
ees Gisele Besccs ay 1263 9 ght olen 
1355S 04 10502 MOV RS,R2 3 3GET THE LSD 
13556 043522 000764 BR £E ;GO CHANGE TO ASCII 
ea tA ON ses! 105768 Qs: rSsTB (SP)+ tes I HE LSD THE FIRST NON-ZERO? 
13559 043530 116663 177777 177776 MOVB -1(SP),-2(R3)  };YES--SET_THE SIGN FOR TYPING 
13560 3536 105013 9$: CLRB (R3 :;SET THE TERMINAT 
13561 043540 012605 MOV (SP)}+,RS ::FOP STACK INTO RS 
13562 O43542 012603 MOV (SP)+°R3 ::;POP STACK INTO R3 
13563 043544 Ol2e602 MOV (SP)+'Re ::POP STACK INTO Re 


SERHAD. 


13573 


“I 
no 


Nn) 
00D 


PRRARAAAAA AAA AAA aa 


teh kt ubaniitete it bet at baie of 


SRT RI RTE RT ATRL RY AT ATARI ATTRA ATTA ATER AT ATER ATER AT ATTA AUREL ATTA 
= ppeeeee 


he 
WONOTVU CWO 


Ww 
o 
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Pil 


043706 
043710 


043714 
043720 


eH 
g18884 
sees 
Biseie 
3420 

it. 


000012 
000004 


001350 
013746 


105366 
002770 


is “77 


043600 
oooote 90000 


001157 


oo0000e 


ooo00e 
000011 
090200 


044024 


043760 
001156 


001154 
000001 
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CONVER 


SOTBL: 


SOBLK: 


MO4 


F BINARY TO DECIMAL AND TYPE ROUTINE 


P)+,R 
P)+'R 
bak 
SP 
P)+ 


Be 


( 
( 
e(SP),4(SP) 
(Ss P) 


. SBTTL iVPE MROUTINE 
eee eee eee eee eee eee ee eset TEMINATE WiTH AO 


 KROUTINE TO TYPE 


Snore ee Oe sear Selibhes T9 "Be USED 
SFILLS CONTAINS 


OTES: 

i ENOTES; 

: 

; #OR 

;* YPE 

;* MESADR 

;# 

$TYPE TSTB 
BPL 
HALT 
BR 

1S: MOV 
MOV 

es: MOVB 
BNE 
TST 

66$: MOV 

33: ADD 
RTI 

4S: CMPB 
BEG 
CMPB 
BNE 
TST 
TYPE 
SCRLF 
CLRB 
BR 

S$: SR 

6$: CMPB 
BNE 
MOV 

73: DECB 
BLT 


PE ASCIZ 


t +BSp ai K INTO RA 
ACK_INTO R 

:;NOW TYPE THE NUMBER 

;;ADJUST THE STACK 


:;RETURN TO USER 


YL Sa} Lat | EMI IM O BYTE. 


NUMBER OF FILLER CHARACTERS REQUIRED. 


SFILLC CONTAINS THE CHARACTER TO FILL AF 


; CALL: 
#1) ane A TRAP INSTRUCTION 
;* YPE , MESADR 


RO 
#2, (SP) 
#HT, (SP) 
#CRLF, (SP) 
ss 


(SP)+ 
SCHARCNT 

23 

PC, STYPEC 
sriLic, (SP + 
$NULL , - (SP) 
1(SP) 

6$ 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3318 THERE A TERMINAL” 
;BR IF YES 
:}HALT HERE IF NO TERMINAL 
:;SAVE RO 
+ oo oy wien of ASCIZ STRING 
TO BE Lore ONTO STACK 
Eten Enda’ THE TERMINATOR 
33 nat OR POP IT OFF THE STACK 
:AOJUST ERE TURN PC 
: BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


;;POP_ <CR><LF> EQUIV 
3; TYPE A CR AND LF 


GEER CHARACTER COUNT 
T_NEXT_CHARACTER 

THIS CHARACTER 
are FOR A CHARS. ” 


OF FILLER ¢ at “NEEDED 
HAR 


LINE FEED. 
as the FILLER CHARACTER. 


SES Oese 


NOY 
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3620 043722 004737 043760 JSR PC, $TYPEC ;G0 TYPE A 
3621 043726 105337 O44024 DECB SCHARCNT :?D0 NOT COUNT” ks A COUNT 
3ece 043732 000770 BR 7$ +: LOOP 
3ee4 ;HORIZONTAL TAB PROCESSOR 
3626 043734 112716 oO00040 8s: MOVB a’ , (SP) ; REPLACE TAB WITH SPACE 
3627 oy 740 004737 043760 9$: JSR PC, $TYPEC $3 TYPE & 
3628 744 132737 000007 oO44024 BITB 87, SCHARCNT : BRANCH F ART AT 
3629 043752 001372 BNE 34 STOP 
3630 043754 005726 TST (SP)+ poe SPACE OFF STACK 
3631 043756 000724 ; BR 25 :GET NEXT CHARACTER 
3632 043760 105777 135164 STYPEC: TSTB a$TPS WAIT UNTIL PRINTER IS READY 
3633 3764 100375 BPL STYPEC 
3634 3766 1166 oo0002 135156 MOVB 2(SP). aSTPB LOAD CHAR TO BE TYPED INTO DATA REG. 
3774 122766 000015 oc0000e CMPB acR,2tsP) 41S CHARACTER A CARRIAGE RETURN? 
o44o02 001003 BNE % : BRANCH 
4004 105037 o44O02e4 CLRB SCHARCNT : YES--CLEAR CHARACTER COUNT 
044010 000406 BR STYPEX EX 
40le le2766 o00012 oao0002 1S: CMPB @LF.e(SP) i318 CHARACTER A LINE FEED? 
044020 001402 BEQ STYPEX : BRANCH 
O44022 105227 INCB (PC)+ :COUNT THE CHAR cTER 
4024 000000 SCHARCNT:.WORD O ss COUNT TH SOUNT STORAGE 
STYPEX: RTS PC 


-SBTTL TTY INPUT ROUTINE 
5 RRR R EERE E EEE REESE REAR REEL ERASE EEE EE EH 


uer ES ee peer re 
2 
£ 
& 
g 
8 


Ret eee EYE EERE | Z 


"ENABL LSB 
044030 000000 STKCNT: .WORD 0 NUMBER OF ITEMS IN QUEUE 
044032 000000 STKGIN: .WORD 0 INPUT POIN Md 
044034 000000 STKQOUT: .WORD O ;;QUTPUT POINTER 
044036 000011 STKQSRT: .BLKB 93. 3; TTY KEYBOARD QUEUE 
$3 044047 STKQEND= 
ee o44050 
S6 ;*#TK INITIALIZE ROUTINE 
S7 s;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
4 ;*#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
60 ; *CALL 
61 ; SR PC,STKINT 
ra [+ RETURN 
3664 O440S0 005037 044030 $TKINT: CLR STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 
3665 O440S4 012737 O44036 044032 MOV #STKQSRT,STKQIN MOVE THE a ee ae OF THE 
3666 O44 013737 O4403e 044034 MOV STKGIN, STKGOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
3667 O44070 012737 O441e0 go0060 MOV BSTKSRY, JSTKVEC ;; INITIALIZE = KEYBOARD VECTOR 
3668 O44076 012737 OO00e00 ox0006e MOV #200, aatKVEC+2 3;"BR" LEVEL 
3669 O44104 005777 135036 TST asTKe ;;CLEAR DONE FLA 
3676 O44110 012777 OO0100 135026 MOV #100,aS7TKS ;;ENABLE TTY KEYBOARD INTERRUPT 
ae7k 044116 000207 RTS PC ;;RETURN TO CALLER 
3673 ; TK SERVICE ROUTINE 
3674 *THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
3675 BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


eee Be a RR AR A RR A RR RR SR A RR A RE RR 
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BREGRES 
Z 


S£LfLfL£ ££55 


@ 
N 
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RRERRRRR RGR 
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NNNNNNNNNNANANANSN 
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177600 
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O44S27 
0440S0 


040640 


000011 
O01ei6 


000023 
134736 
134730 
134724 
177600 
000Ge1 
000100 


044030 
000140 


000175 
000040 
177S36 
044032 
044032 
044036 


044030 


134702 


044047 
044032 
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BOS 


TTY INPUT ROUTINE 


;*IT IN THE QUEUE. 
ier THe CHARAETER IS A “CONTROL-C" (tC) S$TKINT IS CALLED AND 


:#UPON RETURN EXIT IS MADE TO THE “CONTROL-C™ RESTART ADDRESS ‘OPERSEL ) 


étksRv: nove 


1$: 

33: CMP 

318: TSTB 

32S: INC 
CMP 


4S: MOVB 


S$: RTI 
.OSABL LSB 


aSTKB,-( SP) 
#tC177, (SP) 
(SP,.8 


1 
SCNTLC 
PC STKINT 

(SP)+ 
OPERSEL 


#3. ,STKCNT 
3$ 


N 
(SP), #140 
(SP),#175 
ug 


#40, (SP) 

(SP 3+ aSTKQIN 
STKQIN, #STKGEND : 
#STKQSRT,STKQIN ::RES 


;;PICKUP_THE CHARACTER 
THE JUNK 
3318 IT A a c? 


“C (7C) 
THE KEYBOARD 
TACK 


THE QUEUE FULL? 

ANCH IF_NO 

NG THE TTY BELL 

om CHARACTER OFF OF STACK 
IT A_CONTROL-S? 


F 
SABLE TTY KEYBOARD INTERRUPTS 
EAN _CHAR OFF STACK 


I HAR 
OP_UNTIL ITS_ THERE 
T ACTER 


OUVUOH+MODWoO- 


ROE 


eee ee es . 
ag 

a a 
xe 


=m 
n 
44D 
2 
+ 
x= me 
ra 
ww - 


HARACTER 
ASE? 


BUOMAD 


manZ 


AL CHAR” 


ZDWr-MNO 
oo 
cD 
Mmm 
acm 
m 


; ; BRANCH 


5 5 ERRERERAE RASS RRAAESE RARE LAKES SAE RAE LEAL AALAKERAKRAFRSKAKRELELE EE 


; RDCHR 
7* RETURN HERE 
;* 


SRDCHR: MOV 


(SP) ,-(SP) 


i THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;* : 


;;GET A CHARACTER FROM THE QUEUE 
;; CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


;;PUSH DOWN THE PC AND 


CERHADO MACY11 30( 1046) 
CERHAD. 


Pll 


044400 
044406 


O44S64 


21-DEC-77 


21-DEC-77 12:48 


Pine 


O000F errr 
ruew-n Ea vMor 4 
ee ed 
One 
We NO WWW 


2 


BB888s 


044344 


044030 
044030 
1774Se2 
044034 
044034 


044036 


044516 
044Se27 


000177 


177777 
001224 


000004 
O44S16 


006503 
0 1S 


047040 
000040 


COS 
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TTY INPUT ROUTINE SEG O261 
ooco02 MOV 4(SP),2¢SP) ;37H 
CLR {2p} ::GE Ma Reapy FOR A CHARACTER 
CLR -(SP) :;PUT NEW PS ON STACK 
MOV a64$,-(SP) ::PUT NEW PC ON BLACK 
ie RTI ::POP NEW PC AND PS 
4S: 
i$: ren ;;WAIT ON A CHARACTER 
DEC $TKC ;  DECRENENT THE COUNTER 
000004 MOVB S$TKG0UT, 4 (SP) i iG ONE CHARAC TER 
INC $TKO TE THE POTN TER 
O44047 CMe S1k00uT, WSTKQEND' -DID IT GO OFF OF THE END? 
044034 mov eSTKQSRT, $TKQOUT’ eee ee POINTER 
aS: ennnsesecnecnennecnncecnscnahbasensarauenennenaneeens WeTrTty 
i ATHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
: ROLIN ;; INPUT A STRING FROM THE TTY 
:# RETURN HERE :;ADDRESS OF FIRST CHARACTER WILi BE oN THE STAC#. 
:# :: TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP) ;;SAVE R3 
1$: MOV aStTYIN,R3 ;;GET ESS 
2s: che eSTTYINGS. ,R3 i FFE ye eet? 
RDCHR > Gi HARACTER FROM THE TT 
Y 
MOVB (SP)+, (R3) Heer Peace & 
10S: CMPB #177, (R23) tits IT A RUBOUT 
NE 3$ 33SKIP IF NOT 
4$: TYPE QUES : TYPE A *?° 
R Fok R THE BUFFER AND LOOP 
3$: MOVB (R3), 9S :ECHO THE CHARACTER 
TYPE 33 
CMPB biS,(R3)+ : CHECK FOR RETURN 
BNE 2s :LOOP IF NOT RETURN 
CLRB -1(R3)  } CLEAR RETURN (THE 1S) 
TYPE LF YPE A LINE FEED 
MOV tSP)+,R3 : TRESTORE 
MOV (SP),-(SP) ; ; ADJUST e THE STACK AND PUT ADDRESS OF THE 
ooooo2 MOV 4(SP$.2°SP) it T ASCII CHARACTER ON IT 
000004 MOV aSTTYIN, 4(SP) 
RTI ; RETURN 
9S: .BYTE O ?STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE O : TERMINAT 
STTYIN: .BLKB_ 9. 1s eee 9. BYTES FOR TTY INPUT 
000012 SCNTLC: .ASCIZ /#C/<«15><1l2> ::CONTROL “C" 
000 S$CNTLU: .ASCIZ /tU/<15><le> ::CONTROL “U" 
0000i2 SCNTLG: .ASCIZ /#G6/<15><le> ::CONTROL “G” 
C20i22 SMSWR ASCIZ «15><12>/SWR = / 
O0S3S0S S$MNEW ASCIZ / NEW = / 


;FROM THE TTY 
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Bwww 


saa 


bb be ee ee ee pe ee Be Be ee be Be be be es Bs Be be 


C3fUe= Ou NO 


13834 


: CBebod eee GD 


Pili 


044726 
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r 
£ 
i=) 
N 


Sohbraae 
Soso8i 


vena 
PREM REa 


Se 


fstatstetetetss 
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iz:48 


ooocn 


O44716 


000060 


000067 


177770 


000012 
044726 


O0leee 


ogoode 
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DOS 


TTY INPUT ROUTINE 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


; PRESSE EHEERERERESE SPER ELLER S LESH ESTEE PELELA ESE S ES ESE SELES TT TF 
jATHIS ROUTINE Wt WiLL a AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


DS Ya FONE We tite 


rARBctER fs REDD 2” 


arty iite BE “TYPED 


COMPL ETE NUMBER 


Some BE RETYPED. THE INPUT is TERMINATED Bye TYPING A CARRIAGE "RETURN. 


.@ 
a? 


$SROOCT: 


1$: 


2s: 


33: 


4S: 


S$: 


SHIOCT: 


RDOCT 
RETURN HERE 


BR 
. WORD 


DDD— 
Apr 


(RO)+,-(SP) 


; READ AN OCTAL NUMBER 
$i OW ORDER bifs aR ARE IN $HIOCT 


: sPROV LOE SPACE FOR THE 
; INPUT NUMBER 

: ]PUSH RO ON STACK 

;;PUSH R1 ON STACK 


AN ASCIZ LINE 
iGET Soon ss br 1ST CHARACTER 
;AND SAVE _IT 
SI CLEAR DATA WORD 


Bat oe 4 as CHARACTER 
F ZERO GET OUT 
MAKE SURE THIS GUARAC TER 
ig AN OCTAL DIGIT 


3322 
#4 


3 
33 *8 


ss STRIP ue ASCII JUNK 
+ #ADD IN THIS OIGIT 


3. 
i SLEBN, TERRI ROTOR FROM STACK. 


;;POP STACK INTO Re 
;;POP STACK INTO R1 
3 POP STACK INTO RO 


URN 
: CLEAN aah FROM STACK 
a} A TERMINATOR 

TYPE UP THRU THE BAD CHAR. 


. ; oonee “co” & “LF” 
>; TRY AGAIN 
;;HIGH ORDER BITS GO HERE 


TOP OF THE STACK 


SES Oebe 
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001110 
001214 


O0ie14 


134076 
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EOS 


ERROR HANDLER ROUTINE 

.SBTTL ERROR HANDLER ROUTINE 

FEEL EAESARERE RELA RET EASELS REESE SELLE SESE LESSEE ES EE SE SEES S S 
tATHIS POUT INS WILL ap te AY THE ERROR FLAG AND THE ERROR COUNT, 
3 aSAVE THE ERROR ITEM A we UMBER AND THE ADDRESS OF THE ERROR CALL 


G PO 
THE SWITCH saith 4 a ba BY THIS ROUTINE ARE: 


; #SWIS=1 
!#SW13=1 INHIBIT ERROR TYPEOUTS 
:#5W10=1 BELL O 
; #SWOS= LOOP ON ERROR 
: ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
: INCB SERFLG Ho THE ERROR FLAG 
BEQ 7$ !DON’T LET THE FLAG GO TO ZERO 
MOV STSTNM, ODISPLAY :DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10; aSWR :BELL ON ERROR? 
BEQ 1$ ‘Rote 
TYPE SBELL BELL 
1$: INC $ERT COUNT THE NUMBER OF ERRORS 
mov (3P) , SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
MOVB astRrec, SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
BIT #BIT13, ISWR ti Skip TYPEOUT IF SET 
BNE 20$ ;;SKIP TYPEOUTS 
ISR PC, SERRTYP ::GO TO USER ERROR ROUTINE 
a TYPE , SCRLF 
2s: TST aSWR ;;HALT ON ERROR 
BPL 33 :SKIP IF CONTINUE 
HALT ::HALT ON ERROR! 
3S: gir #81709, ISR 3 LOOP ON ERROR SWITCH SET? 
MOV S$LPERR, (SP) ::FUDGE RETURN FOR LOOPING 
4g: TST SESCAPE $1 cece FOR AN ESCAPE ADDRESS 
* MOV SESCAPE, (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 


RTI RE TURN 
ETT TTT TTT T TTT CTT TT TTT TTI TEEETTT TTT TTT TT Tere 
SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
U THE “ITEM CTE. befits. FE (ST Tene) TO DETERMINE WHICH 
;* OR P ED. IT THE “ERROR ‘meee (SERRTE), 
;#AND REPORTS THE APPROPRIAT E INFORMATION NR ONCERNING THE ERROR 
PAS a a OF THE SERRTYP SUBROUTINE FROM SYSMAC. 


PTs 
x 
_ 
w 
P'] 
=O 
4 


:#WITH ONLY MINOR CHANGES 

:#FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN 

*#ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
;#SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 

:#AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 

BAND anor THE ERROR MESSAGE AND HEADER. 
brit fs) PREVIOUS ITEM 19:6 LOCATION 


SCART YE: MOV aeSWR, -(SP) :GET SWITCH SETT 
BIC #tCSO0, (SP) :KEEP ONLY SWITCH 8 AND & 


CERHADO MACYi1 
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bee 
WWW 
wo 


wr hr tr br 

Ververvelverververys) 
ote sarah Baaheeoee Bah 

—-OWODNOWLSW-OwW 


wo 
fufu 
fu 


WWWWWW 
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045112 
045116 
04S lee 


04S142 


O4S144 
045150 


045164 
045164 
045170 


04S17e2 
O4S176 


O04S214 
045214 
04S220 


O4Se22 
O4Se26 


O4Se44 
04S244 
04S2eS0 


o4SeSe 
O04S2S6 
045274 


04S2e74 
045300 


045302 
045306 
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104401 
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017746 
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104401 
30040S 


017746 
10440e 


104401 
000406 


017746 
104402 


104401 
000406 


017746 
104402 


104401 
009406 


D1L7746 
10440e 


104401 
GOO40E 


017746 
104402 
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000100 


046006 
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136720 
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136650 


04Se30 


136610 


04S2e60 


136572 


045310 


136544 


045340 
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bige** 


CMP 
BNE 


BR 

JMP 
TYPE 
TYPE 
er 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BF 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 


TYPE 


FOS 


ERROR MESSAGE TYPEOUT ROUTINE 


aSWOE, (SP)+ 
1$ 


es 
asTYPERR 

, CRLF 

6S$ 

643 

/ RHWC= 7 


@RHWC , - (SP) 


@RHBA, - (SP) 


693 
8S 
/ RHCS2= / 
@MRHCS2, - (SP) 


713 
os 
/ RHCS1= / 
@RHCS1,-(SP) 


4238 
res 
/ RHDS1= / 
JRHDS1,-(SP) 


753 
4$ 
ff RHERI= - 


JRHER1, - (SP) 


77% 


;1S 6 SET AND 8 RESET 
;1F NOT BRANCH : 
{BRANCH IF SW 6 IS SET AND @ RESE 
;JUMP IF SW 6 IS SET cr ees 
OR IF SW 8 IS RESET AND SW & IS RESET 


3+; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHWC CONTENTS 


>; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHBA CONTENTS 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHCS2 CONTENTS 


;; TYPE ASCIZ STRIN 


ING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHCS1 CONTENTS 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET REACY TO TYPE RHDS! CONTENTS 
;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHER1 CONTENTS 


3; TYPE ASCIZ STRING 


SEG 0264 


CERHADD MACY11 
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O4S416 


045434 
04S434 
04S44O 


o4s44e 
O4S44E 


O4S46e 
O04¥S46e 
O4S466 


04S470 
O4S474 


045510 
04SSi0 
O4SS14 


O4SS16 
O04SSee 


045S36 
04SS36 
o4¥ss4e 


O4SS44 
O4SSSO 
O4SSE4 


O4SSE4 
045570 


O45S7e 
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000406 


017746 
10440e 
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000406 


Tbaads 


104401 
300406 


017746 
104402 


1044O1 
ooo40s 


017746 
104402 


104401 
000405 


017746 
104402 


104401 
000405 


017746 
104402 


104401 
000405 


017746 
104402 


104401 


2i-OEC-77 
12:48 


136540 
045370 
136Sle 
04S420 
136426 
04S4S0 
136426 
04S476 
136362 
o4SSe4 
136350 
o4ssSe 
136314 


O4SE00 
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BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
-ASCIZ 


MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 


MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 


TYPE 


GOS 


ERROR MESSAGE TYPEOUT ROUTINE 


76S 
/ RHER2= 


@RHERE2, - (SP) 


7933 
va-1 } 
/ RHER3Z= / 
MRHERS, -( 5°) 


@RHDST, - (SP) 


833 
rd RHCA= / 
@RHCA, -( SP) 


8S$ 
84S 
7 RHAS= / 


@RHAS , - (SP) 


@RHMR, - (SP) 


,91s 


:;GET OVER THE ASCIZ 


;GET READY TO TYPE RHER2 CONTENT 


Ue OVER fue Asciz 


= 
= 


;GET READY TO TYPE RHER3 CONTENTS 


3; TYPE ASCIZ STRING 
:;GET OVER THE ASCIZ 


;GET READY TO TYPE RHDST CONTENTS 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHCA 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHAS 


> 
a 


3; TYPE ASCIZ STRING 
;:GET OVER THE ASCI 


;GET READY TO TYPE RHOF 
3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHMR 


3; TYPE ASCIZ STRING 


CONTENTS 


CONTENTS 


CONTENTS 


CONTENTS 


w 


S265 


c 


04SS76 
o4S61e2 
Suse le 
045620 
o4S6e4 
O4S640 


045640 
O4S644 


O4SE46 
O4SESe 


48658 


_04S674 


04S676 
04S702 


presen 
48754 
04S726 
04S73e2 
O4S746 


O4S74E 
04S7Se2 


04S7S4 
04%S760 


046022 
O4ED2e4 
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900406 


017746 
104402 


104401 
000406 


1 the 
104402 


104401 
00040S 


017746 
104402 


104401 
006405 


017746 
104402 
005037 
104401 


001004 
013746 
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13be62 
O4S6e26 
136234 
O4S6S4 
136230 
045704 
136202 
045734 
136134 
O04S76e 


136110 


04S064 
001223 
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O1116 


13:06 PAGE 267 
ERROR MESSAGE TYPEOUT ROUTINE 


big? 


Cc 
TYPERR: 


BR 
-ASCIZ 
MOV 
TYPOC 
TYPF 


BR 
-ASCIZ 


MOV 
TYPOC 


TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 


TYPE 
BR 
-ASCIZ 


MOV 
TYPOC 


HOS 


390$ 
/ RHLA= / 


@RHLA, - (SP) 


@RHEC1, -( SP) 


97% 
$6$ 
7 RHEC2= / 


@RHEC2, - (SP) 


995 

8s 

/ RHDT= / 
@RHDT,-( SP) 


101% 
Loos 
Z RHSN= / 


@RHSN, - (SP) 


aePRITEM 


S$CRLF 
RO, -(SP) 


RO 
aeSITEMB,RO 
1$ 


SERRPC,-(SP) 


;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHLA CONTENTS 


7; TYPE ASCIZ STRING 
7;GET OVER THE ASCIZ 


;GET READY TO TYPE RHCC CONTENTS 


;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHEC1 CONTENTS 


: i TYPE ASCIZ STRING 


43 
3;GET OVER THE ASCIZ 


;GET READY TO TYPE RHEC2 CONTENTS 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHOT CONTENTS 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHSN CONTENTS 


;CLEAR PREVIOUS ERROR ITEM 
;"CARRIAGE RETURN” 8 “LINE FEED” 
;SAVE R 

;PICKUP THE ITEM INDEX 

:IF ITEM NUMBER IS ZERO, JUST 
:TYPE THE PC OF THE ERROR 


:SAVE SERRPC FOR TYPECUT 
:ERROR ADDRESS 


Witwer 


b+ be be a ee es be ee ee 
SEELELSLLICLS CELL LLL 
+ ee 
SU eee aaah Etdroe- td bee eek Ee 


—-OWONTMCWM-OOON 


IOS 


O MACYL1 30; 1946 } 21-DEC-77 13:06 PAGE 268 
-Pil 21-DEC-77 12:48 ERROR MESSAGE TYPEOUT ROUTINE 
046030 104402 TYPOC +60 TYPE--OCTAL ASCII(ALL DIGITS, 
p4eo 34 Soes00 1$ BE Aes GET OUT THE INDEX SO THAT IT WILL 
046036 006300 ASL RO : WORK FOR THE ERROR TABLE 
006300 ASL RO 
O46042 006300 ASL RO 
O46044 062700 o012e26 ADD aSERRTB,.RO :FORM TABLE POINTER 
046050 020037 945064 CMP RO, JePRITEM !:WAS PREVIOUS ERROR SAME 
046054 001002 BNE 13$ :BRANCH IF NOT 
O46056 O22e02e0 CMP {RO)+, (RO)4 :POP RO OVER EM AND DH 
046060 o00420 BR S 
O62 010037 o4S064 138: MOV RO, JePRITEM ;SAVE NEW ERROR ITEM 
O46066 012037 046076 MOV (RO)+,2$ PICKUP “ERROR MESSAGE” POINTER 
046072 001404 BEO 3$ ;SKIP TYPEOUT IF NO POINTER 
046074 104401 TYPE :TYPE THE “ERROR MESSAGE” 
046076 o00000 2s: .WORD O ;"ERROR MESSAGE” POINTER s0ES HERE 
046100 104401 001223 TYPE SCRLF i >CARRIAGE RETURN” & “LINE FEED” 
61 012037 O46114 3$: MOV (Ro), 4g PICKUP “DATA HEADER™ POINTER 
046110 OO1404 BEG ; SKIP TYP EQUT IF 0 
O461l2 104401 TYPE :T vPE THE “DATA HEADER” 
046114 o00000 43: .WORD O ;"DATA HEADER” POINTER GOES HERE 
046116 104401 o01223 TYPE SCRLF :"CARRIAGE RETURN” 8 “LINE FEED” 
O46l22 O10146 S$ MOV R1.-(SP) :SAVE Ri 
046124 012001 MOV (RO)+,R1 :PICKUP “DATA TABLE” POINTER 
046126 OO14i5 BEQ 34 :BR IF NO DATA TO BE TYPED 
6130 012000 MOV (RO)+,RO :PICKUP “DATA FORMAT” POINTER 
OY613e 105720 6S TSTB (RO)+ ;"OCT OR “D 
134 001003 BNE 7 :BR IF spec! MAL 
6136 013146 MOV a(R1)+,-(SP) :SAVE J(R1)+ FOR TYPEOUT 
046140 104402 TYPOC :GO TYPE -OCTAL ASCII(ALL DIGITS) 
046142 o0040e - BR 8S 
(3: 
O46144 013146 MOV Q(R1)+,-(SP) ; SAVE a(R1)+ FOR TYPEOU 
046146 i04405 TYPDS :GO TYPE--DECIMAL ASELL ra SIGN 
O461S0 OOS71i gs: TST (RL) :IS THERE ANOTHER NUMBER 
046152 001403 BEG 9$ :BR IF NO 
046154 104401 oO46E202 TYPE 11$ : TYPE TWO(2) SPACES 
046160 000764 BR 6$ : LOOP 
O46162 012601 QS: MOV (SP)+,RL ;RESTORE R 
O46164 012600 10$: MOV (5P)+'°RO “CARRIAGE 1 RETURN" & “LINE FEED" 
046166 023737 oooo42 ooo04E CMP dase, OH4e :ARE WE IN QV OR AUTO ACCEPT MODE” 
046174 001001 BNE ‘BRANCH OVER HALT IF NOT 
046176 o00000 HALT :HALT AFTER ERROR MESSAGE 
046200 000207 RTS PC RE 
046202 O20040 009 11S: .ASCIZ 7 / :TWO(2) SPACES 
046206 ‘EVEN 


59 9 ee JF J EE EEE EEE EEE EE EE HE EE 
193 Se 2 3 J EE EE EJ EJ EJ EE EE EE SE Ee HE HE HE a HE 
‘SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


LEEEEEEEELE LEAR RE EA EERE REE EERE E EERE E EERE EE EERE ERE RAR REESE 
tRTHIS ROUTINE IS USED TO ee a A 16-BIT BINARY NUMBER TO A 6-DIGIT 

; FOC TAL (ASCII) NUMBER_AND TYPE IT. 

+2 be aiid HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYFE 
: :* 


JOS 


CERHADO MACY11 30(104%6) 2i1-DEC-77 13:06 PAGE 269 ra 
CERHAD.P11 21-DEC-77 12:48 BINARY TO OCTAL (ASCII) AND TYPE SEG 0268 

14122 ; MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

141le3 :* TYPOS ;;CALL FOR TYPEOUT 

14124 :# .BYTE N ;;N=1 TO & FOR NUMBER OF DIGITS TO TYPE 

14125 :* -BYTE MM ;;M=1 OR O 

14126 :# ;;1=TYPE LEADING ZEROS 

ett 4 ;# ;;O0=SUPPRESS LEADING ZEROS 

41 ;* 

i412e9 : #$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

14130 :*$TYPOS OR $TYPOC 

14131 ;*CALL: 

14132 : MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

14133 : TYPON ;;CALL FOR TYPEOUT 

.* 

1413S ;*#$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

14136 ;*#CALL: 

14137 :% MOV NUM, -( SP) ;;NUMBER TO BE TYPED 

14138 :* TYPOC ;;CALL FOR TYPEOUT 

14140 O4%6206 017646 o00000 $TYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 

14141 O4%62l2 116637 OO0001 046431 MOVB 1(SP), SOF ILL ;;LOAD ZERO FILL SWITCH 

14142 O46220 112637 046433 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 

14143 6224 062716 o00002 ADD #2, (SP) ;;ADJUST RETURN ADDRESS 

14144 046230 06 BR STYPON 

1414S 6232 112737 OOOO0l O46431 STYPOC: MOVB #1, SOF ILL ;;SET THE ZERO FILL SWITCH 

14146 O46240 112737 OOO0006 046433 MOVB #6, SOMODE+1 ;;SET FOR SIX(6) DIGITS 

14147 46 112737 OOO00S O46430 S$TYPON: MOVB #S, SOCNT ;;SET THE ITERATION COUNT 

14148 046254 010346 MOV R3,-(SP) ;;SAVE R3 

14149 O462S6 010446 MOV R4Y,-(SP) ;;SAVE RY 

14150 O4%6260 010546 MOV RS,-(SP) ;;SAVE_RS 

14151 O%62e6e 113704 046433 MOVB SOMODE+1,R4 ;;GET THE NUMBER OF DIGITS TO TYPE 

14152 6266 005404 NEG fw 

14153 046270 062704 oo00006 ADD #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 

141S4 046274 110437 046432 MOVB RY, SOMODE ;;SAVE_IT FOR USE 

1415S 046300 113704 046431 MOVB SOFILL,RY ;;GET THE ZERO FILL SWITCH 

14156 3 016605 o000ie MOV 12(SP),RS ;;PICKUP THE INPUT NUMBER 

14157 046310 005003 CLR R3 ;;CLEAR THE OUTPUT WORD 

14158 O4631e 006105 1$: ROL RS ;;ROTATE MSB INTO “C™ 

14159 046314 OO0404 GR 3$ ;;GO DO MSB 

14164 046316 G06105 2$: ROL RS ;;FORM THIS DIGIT 

14161 320 006105 ROL RS 

14i6e 3ee 006105 ROL Be 

14163 046324 010503 MOV RS,R3 

14164 046326 006103 3S: RU. R3 ;;GET LSB OF THIS DIGIT 

14165 30 105337 046432 DECa SOMODE ;; TYPE THIS DIGIT? 

14166 046334 100016 BPL 7 ;;BR_IF NO 

14167 046336 042703 177770 BIC #177770,R3 ;;GET RID OF JUNK 

14168 O46342 001002 BNE 4$ ;; TEST FO 

14169 046344 005704 TST Bena ;;SUPPRESS THIS 07 

14170 O46346 001403 BEQ St ;;BR IF YES 

14171 6350 005204 4$: INC Ru ;;DON’T SUPPRESS ANYMORE O'S 

14172 635e 052703 o00060 BIS #'0,R3 ;;MAKE THIS DIGIT ASCII 

14173 046356 052703 oO00040 Ss: BIS #’ .R3 ;;MAKE ASCII IF NOT ALREADY 

14174 O4636e 110337 O46426 MOVB R3, 8% ;;SAVE FOR TYPING 

14175 O46366 104401 O46426 TYPE 2 ::GO TYPE THIS DIGIT 

14176 O46372 105337 046430 7$: DECB $OCNT ;;COUNT 8 

14177 046376 003347 BGT 2g ;;BR IF MORE TO DO 


KOS 


CERHADO MACY11 30(1046) 21-DEC-77 13:06 PAGE_270 
ER Pose RIS Si aeeS Bin 


v ig: ARY TO OCTAL (ASCII) AND TYPE 
14178 400 O02402 BLT 6$ 
141739 O4640e 0d00S5204 INC F+ 
14180 046404 000744 BR es 
14181 046406 012605 6$: MOV (SP)+,RS 
14182 O46410 012604 MOV (SP)+,R4 
14183 O4%64%1le 012603 MOV (SP)+,R3 
14184 046414 016666 oc0000e 900004 MOV 2(SF),4(SP) 
1418S O%6422 O1leb16 MOV (SP)+, (SP) 
14186 O464e4 000002 RTI 
14187 O%6426 000 8$: we @ 
14188 O4%6427 000 -BYTE OQ 
14189 046430 000 SOCNT: .BYTE OQ 
14190 046431 — 000 SOF ILL: OTE 0 
14iS1 O4643e 90000 SOMODE: .WORD 0 


Plant 
“Ww 
e 
“4 
> 
Q 
+4 
D 
= 
= 


TURN 
i STORAGE FOR ASCII DIGIT 
;; TERMINATOR _ FOR unten ROUTINE 


os TCH 
;NUMBER OF DIGITS TO TYPE 


CERHADO MACYi1 30(1046) 2i-DEC-77 13:06 PAGE 271 
CERHAD.F1i 2i1-DEC-77 12:48 TRAP DECODER 


w 
m 
“al 


14132 _SBTTL TRAP DECODER 
14194 Te ROUTING HILL PICKUP THE LOWER GYTE OF THE "TRAP" INSTRUCTION 
ay 8TH S ROU Wi Y OF = = 2 U 
1i3e aA See NE ee UE ce THe FRAP THeCE FOR THE STARTING actress 
14197 SOR THE DESIRED ROUTINE. THEN USING THE EDBRESS OBTAINED I? Wile 
14199 :%G0 TO THAT ROUTIN 
14200 046434 010046 STRAP: MOV RO, -(SP) + SAVE RO 
14201 O46436 016600 oD0002 MOV 2($P),RO :'GET TRAP ADDRESS 
14208 O¥E442 005740 TST =(RO) : HBBCKUP BY 
1430 6444 111000 MOVB —s (RO) , RO IGHT BYTE OF TRAP 
14204 O46446 006300 ASL RO ‘POS TION FOR INDEXING 
14205 O464S0 016000 o46470 MOV STRPAD(RO),RO }; INDEX TO TABLE 
i4s06 O4e4e4 O00200 RTS 0 $60 TO ROUTIN 
14307 
14208 
14208 »:THIS IS USE TO HANDLE THE “GETPRI” MACRO 
14211 O464S6 011646 STRAP2: MOV (SP). -(SP) »:MOVE THE PC DOWN 
14312 046460 Oi6ee— CO0004 oDD002 MOV utSPS 2cSP) FE MOVE THE PSW DOWN 
14213 O4eNE6 000002 RTI i TRESTORE THE PSW 
14218 _SBTTL TRAP TABLE 
14217 s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
14218 ieBY THE “TRAP™ INSTRUCTION. 
14220 : T 
14585 4BY7D O4GYSE lees a STRAPZ 
: .WO 
14223 046472 043610 $TYPE  ;;CALL=TYPE TRAP+1( 104401) TTY TYPEQUT ROUTINE 
14554 Q4E47G 046232 Stypoc iicacceTyPoc  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
14225 O46476 O4eS06 sTypos jicatteTYpos  TRAPS3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
14226 046500 O4e246 $TYPON {iCALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
14227 O4ESO2 043364 STYPDS ::CALL=TYPDS | TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
14229 
14250 046504 944320 SROCHR ;;CALL=ROCHR —TRAP+(10440G) TTY TYPEIN CHARACTER ROUTINE 
14231 O46506 O44410 SROLIN {:CALL=ROLIN © TRAS7(4044G7) TTY TYPEIN STRING ROUTINE 
14232 O46510 044570 SRO eet Oat TRAPS 10¢ 004910) READ AN OCTAL NUMBER FROM TTY 
i4e33 O4eS12 O40544 WAIT.T ::CALLSWAT TRAPS TTC tO4NTL) DONT ADD ABOVE THIS TRAP 
14235 


CERHADO MACY11 30( 1046) 


CERHAD.P11 
14237 
iis 
14 
eT 
HSS) Bupa 
fees 046530 
iis Bigese 
Hee Beas 
ieee: 
1 iS5 O46S44 
ise? Rises? 
142Se 6S62 
14253 046564 
14254 
14eS5 
iigee 
ise, 
14eS39 046600 
14260 
14261 6610 
14 b61le 
ieee se 
ies 
14266 O466e4 
14267 O466e6 
tases 046630 
14270 DYEEaO 
igre Bisede 
14273 O466Se 
14274 046654 
42 S6 
14276 046660 
14277 046662 
14278 6664 
14279 O46666 
14e80 046674 
14281 


21-DEC-77 


21-DEC-77 12:48 


815737 


BoB846 


132370 
46664 
46566 


132322 


046514 
000340 


047520 


Bboose 


ooo0e4 


oooce4 


oo00e4 
000026 


042527 


13:06 PAGE 272 


MOS 


POWER DOWN AND UP ROUTINES 


-SBTTL POWER DOWN AND UP ROUTINES 
Dono eae means cela REET 


‘BOWER DOWN ROUTI 


$PWRON: mov 


SRIALUP DEPURVEC. : 4807 6 FOR FAST UP 


ieee d Ha i Ee 
Raccfee} «Bus A BTR 
aSWR,-(SP) ue seh ON STACK 


SP, SSAV $3 
SSP TRGe Semunvec’ 73S cave $B UP VECTOR 
--2 ;;HANG UP 


s REKSRKKKESKKAKAAKRAAASAAKAAEHEARAAAAKAAKRAAAAAKAAHSARATAS LAE PHHLE SESS 
‘BOWER UP ROUTINE 


$PuRUP: 


1$: 


SPWRMG: 
SPWRAD: 
SILLUP: 


SSAVRE 


R6: 
SPOWER: 


-ASCIZ 
- EVEN 


plu” ere, gf gon ast 0 
Pe WA IT LOOP "We tIMee TTy 


Scavne ss uATT week 
Serge Heap crack tive ge 
ao ee 
(8p) 3" RG >: POP STACK NTO RS 
(SP)+°R3 ::POP STACK INTO 
(SP)+)Re :;POP STACK NTO Re 
(SP)+'RI H:-4 TACK INTO R1 
(S5P)+’RO POP STACK INTO RO 
#SPWRON, JSPWRVEC’ T P THE POWER DOWN VECTOR 
#340, JSPWRVEC+2 if 


PORT THE POWER FAILURE 
SPOWER Ouee FAIL MESSAGE POINTER 
(PC)+, (SP) 5 POUR T AT BEGIN 
BEGIN + RESTART ADDRESS 
;; THE POWER UP SEQUENCE WAS STARTED 
--e 23 BEF One THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 
«15>¢12>"POWER” 


w 


NOS 


RHADO MACY (1046) 21-DEC-77 13:06 PAGE 273 o 
SERMADCPI  2i-bec-s> 15:48 POWER DOWN AND UP ROUTINES SEG 0272 
14282 ; EESAEEEEEREEERERERE LESSEE SESE LES SLES SEEPS ELSE ESSE SEES ESS SESS SEES SS 

luseq TERROR AND MESSAGE TABLE CONDIMENTS 

1 3S8e ; SKESKSAESKA KE KEKESKSKHKASAAAAKRARSASSASSASSLHAESSHSSSLASFSSSRSLESSSSSSSSSS 

14s88 O4e676 O441e4 O2010 O441ze EMI: -ASCII /THE RH BASE ADDRESS WAS 172040 INDICATING AN RS BUT THE DRIVE TYPE“ 1S) 
14289 704 041040 951501 20105 

14290 046712 042101 051104 051505 

14291 046720 G20le3 040527 O2012e3 

Iwege 046726 033461 030062 030064 

14293 046734 O44440 O42116 041511 

Se Bers Belt Bray fenle, 

[asso Que7Ee Gsesoe bepress oqaise 

14297 046764 O20105 051104 053111 

14298 O4G772 Ge0105 OS4Se4 ON2520 

14299 047000 O0S0i 

14300 047002 OWWSO4 20104 047516 .ASCIZ /DID NOT CONTAIN O OR 1 OR 2 OR 3 OR 4 

14301 1 

14302 Busole Ba4eo Beale e00e0 

14303 ON70e4 OS1112 C3040 O47440 

14304 04 G20122 O20062 051117 

1430S 047040 031440 047440 O20122 

=. Pablo ranente 

14308 047050 O44124 O2010S O44122 EN: .ASCII /THE RH BASE ADDRESS WAS 176700 INDICATING AN RPO4,S,6 BUT THE DRIVE TYP 
14303 047056 041040 051501 O20105 

14310 047064 O4210i 051104 051505 

14311 047072 G20123 040527 Ge0i23 

14312 047100 033461 033466 030060 

14313 047106 O44 42116 041511 

14314 047114 052101 047111 020107 

14315 047122 047101 051040 O30120 

14316 047130 O26064 O26065 O20066 

14317 047136 620124 o44124 

14318 047144 Q2010S 051104 053111 

i420 O47iep posdle Ce DNeSeO 

14321 047162 O44504 020104 047516 -ASCIZ /DID NOT CONTAIN 20020,24020,20G21.24021,20022, OR 24022. 

14322 047170 O201e4 047503 052116 

14323 047176 O44501 O20116 030062 

14324 047204 031060 026060 O32062 

14325 O47212 031060 Oe6060 030062 

14326 047220 031060 O2606i 032062 

14327 047226 031060 O26061 

14328 047234 031060 Oeb062 047440 

14329 047242 O20ie2 O3e062 031060 
14330 047250 000062 , 
14332 047252 O44124 O2010S oO44122 EN: -ASCII /THE RH BASE ADDRESS WAS 172440 INDICATING A TMO2 BUT THE DRIVE TYPE’<15 
14333 047260 O41040 051501 O20105 

14334 047266 O42101 051104 O515 

1433S 047274 O20123 O405e7 O20123 

14336 047302 033461 O32062 030064 

14337 047310 O44440 O42116 041511 
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13:06 PAGE 274 2 
POWER DOWN AND UP ROUTINES 


-ASCIZ 


ASCII 


ASCII 


-ASCIZ 


-ASCIZ 


-ASCII 


B06 


‘DIL NOT CONTAIN 142010~ 


/THE RH BOSE ADDRESS WAS 176300 INDICATING MORE THAN ONE RH DEVICE 


/THE ORIVE TYPE DID NOT CONTAIN O0,1,2,3,4,20020,24020,/«15'<le 


720021, 24021 , 20022, 24022, 1420107« 15><« 12> 


ZINDICATING NO RH DEVICE PRESENT. 


/THE UNIBUS TIMED OUT FOR EACH OF THE FOLLOWING ADDRESSES, INODICATING~< 


CO6 
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CERHAD.P11 21-DEC-77 12:48 POWER DOWN AND UP ROUTINES SEG C274 
14 $116 1 4 052101 
B00 le 

1388 e800 os i123 96867 candy 4 .ASSCIZ /“NO RH CN THE SYSTEM SO ABORT PROGRAM - 

14397 oSO00e0 O4744O O20116 44124 

4 01 ‘Gah peeie3 

Pe, Ti 1 ekg ospt ss 

14401 Bepoes OSiie0 O43S17 O40S22 

a osoosé o00115 

4404 050060 191 4 122 EMb: .ASCII “AFTER AN RH CLEAR (RHCS2-BIT #5) RHCS2 DOES NOT HAVE ONLY IR‘ 15/12: 
SHO’ Os0060 N31p1 Ovese4 ge012 

14406 050074 O46103 oO4OSOS O2e0lee 

14407 050102 51050 041510 031183 

sy ' 

Ste GBsue feiss Beles gual’ 

14411 paoiss is3 047516 O2e0le4 

144le OS0140 O40S10 O4eSe6 047440 

14413 OS0146 O4%6116 O20131 OSI1111 

14414 1gy AS ; 

1441S 1 101 Beo108 oir ase -ASCIZ /AND UNIT NUMBER- 

14416 164 lll 40 6SeS 

pt F 4 050172 O4eS0e Oo00l2e 

144139 050176 2191 Oieeee pe0iss EM7: -ASCII /AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15><1le> 
144 oso204 1 044S2e 

14421 OSO2ele O43SI6 042510 

144ee OS0e20 OSiI04O O20110 047101 

14423 OS0226 Oe0104 OS5112e7 OS2111 

14424 050234 O47111 020107 047117 

144eS OS0e42 O2010S O47S27 OY¥2il22 

iss ag hy Ay 2116 a 

ak yy aif 15 a 

14429 050270 O42eS2ee O42101 O47111 .ASCIZ /READING IT BACK, CAUSED RHDB TO HAVE WRONG VALUE GIVEN IN “BAD. 
14430 OS0276 O201 ll 1040 

144 1 440 

i} 1 1 20104 

14433 OW4lee O41104 9OS52040 

14434 050326 020117 O4OSIO O4eS26 

1443S 050334 OS3440O O47S22 04351 

144 Ay ll 41042 

lost 0S0364% 042101 oo004e 

14441 050370 O43101 O42S524% Oe0lee EMIO: .ASCII /AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND’<15><le> 
14442 050376 O46103 O4OSOS O44S2e2 

14443 OSO4 043516 OS204O0 G42S510 

14444 OS50412 051040 020110 047101 

1444S 050420 O2e0104 OSll2e7 OS2111 

14446 OS04 O4¥7111 O201 047117 

14447 050434 020105 O047S2e7 O4el22 

144468 oOS0442 04444 O0S2116 020117 

14443 OSO4SO O4H122 OY1I04 oO4044O 


DO6 
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CERHAD.P11 | 21-DEC-77 12:48 POWER DOWN AND UP ROUTINES 
aug Geese PIsLIG  BOBORF  ouzi11 LASCIZ /READING IT BACK, CAUSED RHCS2 TO HAVE WRONG VALUE GIVEN I" “BAD 
14452 050470 020107 OSel11 041040 
14453 050476 041501 026113 041440 
14454 50504 1 42523 020104 
1445S 050512 OW4i2e 051503 JeU06e 
144 7oe4 OWNOND 05310) 
14457 050526 020105 OSile7 047117 
050534 020107 O40Se6 052514 
ies fees fail eee) Bites 
14461 baosos O2ild4 O00 
1463 OSOSE3 _ 101 OS2106 OSL10S EMI1: ASCII “AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND’: 15.12. 
14464 050570 OMIYNO 42514 051101 
14465 050576 047111 020107 O44124 
iy ee fle Bale ices 
dues Ge0E20 O4sse4 bagelg bu7uaG 
14469 050626 042516 053440 051117 
14470 050634 020104 O47:11 047524 
14471 OS0B42 051040 Oy2i10 20102 
tuas5 Beoees "7185 BOBERE  guykds LASCIZ /READING IT BACK, CAUSED RHCS1 TO HAVE WRONG VALUE GIVEN IN “BAD”. 
14474 O50662 O43S16 O4444O 020124 
14475 050670 O40S02e O¥SS03 O20054 
14476 050676 04 OS1525 042105 
14477 050704 051040 O41510 030523 
14478 050712 117 040510 
14479 20 04 40 047522 
14480 043516 053040 046101 
14481 050734 04 043440 053111 
i44e2 O50742 047105 O44440 O20116 
14483 041042 O42101 OO0042 
14485 043101 04 020122 EM12: ASCII /AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15) «12 
14486 050764 046103 O40505 O44See 
14487 050772 043516 O52040 042510 
14488 051000 O51040 O20110 047101 
14489 051006 O20104 051127 952111 
14490 051014 047111 020107 047117 
14491 051022 O20105 047527 O42122 
14492 051030 ON444O OSel16 020117 
Ris Bigs Glee faite bono 
14495 O5i0SO O4eSee O42101 047111 .ASCIZ /READING IT BACK, CAUSED RHCS3 TO HAVE WRONG VALUE GIVEN IN “BAD" 
iaug? Osiges O41501 O26113 O4L440 
i4usa 610% Bese0l B48653 Beoi09 
14499 051100 O44i2e 051503 020063 
14500 051106 047524 O44O4O 053101 
14501 051114 020105 051127 047117 
4s0e 051122 e097 O40se— O5e614 
14503 051130 e005 044607 O4ese6 
14504 051136 O20116 O47111 O21040 
14505 O51144 O40S02 O21104 — O00 


E06 
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SERMAD PII 2i-bec-s> 13:48 POWER DOWN AND UP ROUTINES SEG 0276 

i4e0% 051151 101 OS2i06 OS1105 EM13: ASCII “AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHO AND’ 15 “12 

14508 051156 o41440 042514 051101 

4509 051164 OY/111 020107 Q44ie4 

14510 051172 0201 422 O40440 

14511 051200 042116 OS344O O44Sz2e 

14512 051206 044524 043516 047440 

14513 051214 042516 OS3440 051117 

14514 OSiee2 020104 O47111 047524 

[4eie O81s3 ON7IG1 OGEsOY Gls 

iieie Deibas 122 o40S50S o4450 ASCIZ READING IT BACK, CAUSED RHBA TO HAVE WRONG VALUE GIVEN IN “BAD: 

14518 051250 043516 O44440 O20124 

14519 Ob1e56 O40502 O¥ss03 020054 

14 051264 040503 O51 042105 

14521 OS1e72 051040 041110 020101 

14522 051300 047524 O44 3101 

14523 051306 O2010S 051127 047117 

14524 051314 020107 O40S26 052514 

14525 051322 O2010S oO44507 O42e5e6 

14526 051330 020116 047111 O21040 

14527 051336 040502 021104 000 

14858 051343 101 OS2106 051105 EMI4: ASCII /AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15> «12, 

14530 0513S0 041440 042514 051101 

14531 051356 047111 O20107 O4412e4 

14532 051364 020105 oO44ie2 O40440 

14533 051372 042116 OS3440 O44S22 

14534 051400 O44S24 043516 047440 

1453S 051406 042516 OS3440 051117 

4536 051414 O20104 O47111 047524 

ee Biss Bite Gece Pits 

14539 051435 le2 04 044504 .ASCIZ /READING IT BACK, CAUSED RHBAE TO HAVE WRONG VALUE GIVEN IN "BAD": 

14540 O51442 043516 O44440 020124 

14541 OS14SO O40502 O4S503 020054 

14542 051456 04 0Si 04210 

14543 051464 051040 041110 O4250 

14544 051472 O52 020117 040510 

14545 051500 04 OS3440 047522 

14546 051506 043516 053040 046101 

14547 051514 O42525 043440 053111 

14548 051522 047105 O4444O 020116 

IMS49 051530 O41042 OY2101 OO0042 

14551 051536 043101 O42524 O20122 EMIS: ASCII “AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND“<1S><12 

14552 051544 046103 O4050S O044See 

14553 051552 043516 OS2040 O42510 

14554 051560 051040 020110 047101 

1455S 051566 020104 051127 052111 

14556 051574 047111 O20107 047117 

14557 051602 O2010S 047527 ON4ele2 

14558 051610 O44440 OS2116 020117 

Iveco Geiee4 Selig ooRdIs 

14561 051630 O42522 042101 o47111 -ASCIZ READING IT BACK, CAUSED RHWC TO HAVE WRONG VALUE GIVEN IN “BAD” 


FO6 
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CERHAD.P11 


21-DEC-77 12:48 POWER DOWN AND UP ROUTINES 
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O665S2 001116 001126 oo0000 -WORD SERRPC,SBODAT,O 
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15794 066574 001116 O04S56 001124 DTS: .WORO SERRPC,TSTNM,SGUDAT,SBDDAT,O 

15795 G&6602 001126 

15796 066605 90111 QO¥6S6 OOHGb4 OT24: — .WORD SERRPC, TSTNM, SILONM, SGDDAT, SBDDAT,C 
13798 Doeees 001116 GO4eS6 OONGGe OT1O4: WORD SERRPC, TSTNM, IP, $GDDAT, SBDDAT, 0 

1 l 

15800 O66636 01116 OO¥ESS OO4G62 OT10S: WORD SERKPC, TSTNM, IP, SGDDAT, SBDDAT,O 

1 

15802 O66652 001116 OO4eSe B62 DT10b: WORD SERRPC, TSTNM, IP, SGDDAT, SBDDAT 0 
15804 O66666 OO1116 OONGSe O04G72 DT13S: WORD SERRPC, TSTNM, WAITBT,WAITPC, WAITRE,O 
1 

15806 066702 001116 OO4656 OO0ll22 OT137: .WORD SERRPC,TSTNM,SSDADR, SGODAT, $BDDAT,O 
15807 066710 O01124 001126 000000 

15808 066716 001116 005324 O00S326 DT14¥%: .WORD SERRPC,TESTOV,TESTVC,O 

15809 066724 900000 - 

15810 066726 001116 005324 00000 DT147: .WORD SERRPC, TESTOV,0 

15812 

15813 

15814 066734 000 000 OF1:  .BYTE 9,0 

15815 066736 000 000 000 DFS: ‘BYTE 0;0,0,0,0 

15816 06674: 900 000 

15817 066743 000 000 OF6: .8YTE 0,0,0,0 

15818 066746 000 

15819 066747 000 900 000 DFe4: .BYTE 0,0,6,0,0 

15820 06675e 000 900 

15821 066754 000 000 000 DFIO4: .BYTE 0,0,0,0,0 

15822 066757 000 000 

15823 066761 000 000 000 DF1OS: .BYTE 0,0,0,0,0 

15824 066764 000 000 

15825 066766 000 000 000 DF106: .BYTE 0.0,0,0,0 

15826 771 000 000 

15827 066773 000 000 COO DFI3S: .BYTE 0,0,0,0,0 

15828 066776 000 000 

15829 067000 000 000 000 OFI37: .BYTE 0,0,0,0,0 

15830 067003 000 000 

15831 067005 000 000 O00 OFI46: .BYTE 0,0,0 

15832 067010 000 00 OF147: ‘BYTE 0:0 

15833 . EVEN 

15634 ococo1 "END 
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ACL = 4 7748 
agb = saaieietate 7098 
AOE = 001000 eb41e8 
APE = 100000 25838 
as = 000016 26068 
ATA = 100000 26298 1le94e 
ATABL 674 S418 
ATTEN y4 O2Ss 
ato = 01 6618 
ATl = C b6e8 
ate = 000004 26638 
AaT3 = 000010 ebb48 
AaTY = 000020 26658 
ats = 000040 26668 
AaTé = 100 26678 
aT? s 2 26688 “ 
Al6 = 000400 26038 7363 7368 
hy = 001000 couse 7483 7488 
= 900004 g 
I = 5009 0 Sane 7833 78s9 10447 10493 11248 11294 11935 11981 12653 12699 
3 6s 
BASECH O42240 133788 
004712 9Sls 
BASEVC 004714 e9s4e 
BASINX 004766 2368s 
004722 29578 
SP 004716 e9sss 
BASPAD 004706 23498 
BAST 004720 8 
BASTAD 004710 23508 
BECINe DOeESe i398 «ogee 
8 i 
BFEVEN 6 2825s 3g 3999 10098 10103 103e5 10330 104393 10444 10672 10677 10785 10790 
— 1101 11017 11240 tics thats 11364 1147e 11477 11699 11704 11927 1193¢e 12051 
1 12176 lel 124 41 
BF ODD 063002 28278 10212 10217 10557 10S6e2 10899 10904 1112s 11136 1158S 11590 11813 813 
12288 12293 12eSe6 1eS31 1264S 12650 
BITO = oooo01 13668 7191 7199 7388 
BITOO = OO0001 13568 1366 4024 
BITO1 = OO0000e2 13558 1365 
BITO2 = OOOCOY 13548 1364 
BITO3 = O00010 13538 1363 
BITOY = 000020 13Se8 1362 13233 
BITOS = 40 13518 1361 13233 
BITO& = 090100 13508 1360 
BITO7 = o00e00 13498 1359 
BITOs = 000400 13488 1358 13475 
BITOS = 001000 13478 1357 13483 13875 
BIT1 = o0000e 13658 7508 
BITiO = 002000 13468 3706 3708 3714 3740 13266 
BIT11 = oO4C00 134S# 13490 
BIT13 = O20n09 ian at 
BIT14 = 040000 aaer® 3715 3741 3794 3819 3873 3899 3952 3977 4031 4057 41le 4138 
BITiS = 100000 13418 
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BITe = 000004 13648 
BIT3 = 900010 13638 
git? = 000020 13628 3866 
115 = a 4 13048 3866 
Bit? = 000200 13s" 3866 
c = af -~ 
BITS = OO00400 13588 3715 3741 3794 38.19 38665 3873 3899 3952 3977 4031 4057 4lie 
BITS = 001000 ie 3715 3741 3794 38193 3866 3873 3899 3952 3977 4031 4057 4ilz 
41 
BOT = Oo00002 26148 13233 13241 13271 
BPIS = 001400 27388 13298 13338 
PTVEC= 000014 13738 
SGIVA O047e4 2 
BSGIvv 004744 29648 
BUFEW 003000 ese4e 9530 9532 9763% 9765 
BUFOW 003002 esebs 3064* 3066 92e97% 9299 
cc = 000036 281Se 
CHECK 040340 1e9eS8 
CHECKC 040376 12e9e9 129338 
2 as i 
C p 4 4184 «4373, 4549—s«44B17 it $631 6053 
sich ge 2495 eit 3789 3308 3048 3832 3399 332 7971 8046 asd+ 8282 B444 
8746 8886 9051 9120 9284 93$3 9517 9586 9750 9819 9979 10092 
10206 10319 1043 10S5S 10666 10779 10893 1100 11119 11234 11353 11466 11579 
11693 11807 11921 12041 12160 = 12278 12397 612516 126358 129098 rad 
CLR = 000040 Sari 13949 3743 37936 3821 3875 3901 3954 3979 4059 4114 4146 
CLRBIT OO46S4 e9e68 3708% 3721 3748 3866* 3879 3906 4024s 4037 4064 4105* 4118 4145 
creme Siisee ae 
ere Sikes srs, ieee, 13159 12PRL, 80 1858, fea fazese 
* - 
cana mE ee 
be be) “ a -: 
11593 11707 11821 11936 12044 12060 12163 12179 1e281 12297 12400 12416 i2S193 
1253S 12638 #12655 
CR = 000015 12818 13635 1364S 
CRLF = 000200 leBes 3250 13606 1364S 13903 
CSF = 00000e 26968 
csU Ss = 000010 26988 
¢$1 = 000000 27988 
CSe = 000010 28038 
fe: Bass BEE 
= 8 2 
DBL = 000 es788 777 9039 9332 9565 9798 10111 10570 10798 11138 11598 11712 i2064 
12301 le4e 
o¢ = 000034 e8l4es 
DCK = 100000 eb47s 
DCL 0100 27758 
DCLEAR O0414e2 28938 13280 
DOISP = 177570 12888 1471 3125 
DEN1 = 000400 27358 
DENe = 001000 27368 
DENS = 002900 27378 
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2039 204s 
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2215 2236 
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2167 2291 
2248 157288 
2es4 187378 
2260 157468 
164e 1813 
1656 182e 
2371 2384 
2404 2415 
2427 157708 
1670 831 
155608 

2518 187798 
2eS28 157838 
1684 1840 
1783 156768 
18Se 1866 
19Ss9 156938 
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1$87 1614 
2343 156218 
1600 1712 
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14718 3125 
13898 3133 
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2eSels 

ecSbes 

eb2ee 12943 
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3e89 
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156 
eect 


2003 


2009 


1726 
1S6eeea 
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1S3148 
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1912 
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2094 
2142 


2026 
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13231 


E08 
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1976 


2037 


2197 


1768 


2020 


1798 


2043 


1921 


20S4 


1985 


2303 
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DRY = 000200 26218 12943 13129 13181 13231 13287 13330 
0S = O000ie es04s 
OSWR = 177570 1ee78 = i470) 324 
OT = 000026 28108 
OTE = 910000 eb44e 
OTSY = 001000 26578 f 
DT1 066552 1530 1542 48691553 1SE—IS751e 
OT104 bee 2210 2243 2248 2255 226i 157968 
OT10S 066636 2216 e2c37 158008 
OT106 O6665e ee31 2439 1580e8 
07135  O6666S 2409 «e420. 15804 
01137 066702 e432 158068 
OT146  O66716 eSe1 158088 
OT147 06672 2530 158108 
OT24 066606 1788 «157968 
STS 066560 1579157928 
DT& 066574 1$91 1604 1618 i632 1646 1660 1674 
1772 1802 1808 1817 i826 1835 1844 
1926 ©1934 1940 194 1963 1980 1986 
2038 «= 2044 = 2055) 2012S 2072 «= 2078 = 2089 
2143 2149s 2155) 0 6B 2174 Ss 21800 2186 
2304 6310 2316 2322 2332 2338 e344 
mat eyS2 e467 4822497 S12 15794" 
DvA = O04000 26068 3706 3707 3714 3740 Yebe 4704 
7368 «= 7435) 748B 2S 7555 00 7808 = 7675) 7739 
22 8590 8757 8824 8892 9126 9359 
10473 10590 «10704 10818 10931 11044 11188 
S 11961. 12084 i2e02 12321 12440 i2sse 12679 
ECH = 000100 26388 
ECI = 004000 27228 13199 
EC] = oo0044 2816s 
Ece = oo0046 28198 
EMTVEC= OO0030 13768 3109 3110 
EMi 046676 1524 142888 
EM1O 050370 1608 144418 
EM104 060413 2202 89-2214 151828 
EMi06 060651 22200 «e355 eHl «= 2247) eSB) S921 18 
EM11  OSOS63 ige2 144630 
EM114  OQ6i142 2265 92275 1524Se 
EM116 O61311 2285 86 ee 202S 2308 «= 214 = 2320S 1S2b4e 
EMle2  OSO7SE 1636 © 14485 
EM1e4 O61 2326 e420 2348 = 2354 = 2360S 152908 
EMi3_ 051151 1650 14507 
EM132 061664 2365 153088 
EM133 O6204e2 2378 153e88 
EM134  O62220 2391 153488 
EM135  O62410 2401 153698 
EM136  O62610 e412 153928 
EM137 0630 e423 «154154 
Emi4 051343 1664 145298 
EMI4O 063140 2437 154308 
EM141 063372 ey4e 154588 
EMI42 063573 2457? 154808 
Em143 063774 e472 185028 
EMi44 064174 e487 «155248 
EMi4S 064375 e502 iSS46s8 


13355 

1688 1702 
1656 1870 
1992 1998 
203s 2106 
2i3e 2198 
2350 e356 
S086 5499 
7840 7981 
95932 98256 
11274 8=611391 
1293S 
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EMi46 064S75 e515 1SS698 
EMi47 064767 eSes 1SS3S18 
EmMiS 051536 1678 14SS18 
EM16 0S17 1692 145738 
EM17 0Sele3 1706 14S9S8 
EMe 047050 1534 143088 
EmM2e0 oSe2 1720 146178 
EMel 0SeS11 1734 146408 
EMee OSe7i1 1748 146638 
EMe3 OS3ile 176e 146868 
EMe4 0$3307 1776 147088 ie 
Emes 05353 17932 1806 18le 1821 1830 1839 147378 
EM3 0472eSe 1546 1433e8 
EM33 053766 1848 147648 
EM34 054102 1860 147788 
EMSS OS4344 1874 148078 
EM36 os4S4e 1888 148308 
EM37 055017 1904 1920 1926 193e 1933 1944 148618 
EMY 047406 1$57 143498 
EMMYS 0553e1 19S0 14897 
EM4E ossss7 1967 198 1990 1996 2062 2008 149268 
EMS 047705 1870 14384 
EmMS4 6S6060 2014 20e5 149618 
EMSE OS6: 203i 2042 1498S8 
EMG oS0060 1583 144048 
EM60 OS6Se7 2048 20s3 150148 
EMb2 056746 2065S 2076 1$0398 
EMe4 0S7175 2082 2093 20393 2110 1S0678 
EMbE 0S740S 150918 
EM7 050176 1$95 144198 
EM70 OS7644 2116 2129 2135 2141 2147 2153 151198 
EM76 060120 2159 2172 2178 e184 2190 2196 151498 
EPAR = OOOOIO 27308 13299 13339 
ERFLGS O0Se40 30198 
ERR = 0000 ebe8ea e =e a ct 
ERRVEC= 000004 auree 3122 3123% 3134s 3159% 3160+ 3263+ 331e* 3577+ 3578 
3 
ER1 = OO0014 28oss 
ERe = Q00040 2816s 
ER3 = 000042 28178 
EXT1 = OO000i 26768 
ExT10 = OO0010 267398 
xTe = O0000e 26778 
ExTeO = 900020 2680s 
EXT4Y = OO0004 eb78s 
FBAE. ts poesee soeoe 33393 3389 337 3669 
a + * 77% 
FBASER 005426 30768 3330 3396 3 6s9s 
C = 000006 280is 
FCS3 OOS476 30818 33414 3361 3379% 3670 
FDEVYIC OO0S366 30718 3324 3334 3344 334E 3348 3350 3352 3354 3364 
3372 3402 3417 3424 3431 3433+ 3439 SHH 1 3447 3449+ 
et 3471 3473 3479 3481# 2487 3489 3495 SN97% 36905 
FORPIVFE OOS4SE 20758 3336+ 3356+% 3374s 3666 
FEN = 900200 27028 


13466 


3615 


S4E7# 


13463+ 
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000010 
000114 
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8800 8844 


32291 


13298 13338 
7728*% 13148 13460* 
3279% 3282 3548* 
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4214 } 4616 464e 4853 4862 S24 
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PAT = 900020 ess7#8 6935 7195 7240 
PCJSR 040336 129208 129eS* 129e6* i2930* 12971+ 
PE = O20000 25678 
PERMX  Q05264 30358 
PERMXY 005274 30408 
PERNUM O0S276 30428 
PERRP  O0Se 30338 
PERRPV O00Se70 30388 
RRS O0SeS6 303e8 3209 
PERRSV O0Se66 * 30378 
PERTU OO0S262 30348 
PERTUV O0Se7e 30398 
PGE = 002000 esé4e 7758 
PIP = Oe0000 e6e78 13249 13260 13308 13319 
= 177772 12868 
PIRQVE= 000240 13808 
PKACK Q0417e 290S# 13176 
PLU __= 920000 27088 
POINTT 005360 30658 3278 
PRE = 000020 27738 
PRESEN OQOO40S6 2e834e 
PRITEM O4SO64 314S# 3672 13046# 138958 i4056# 14073 L4O077* 
PROG = 001000 26238 
PRO = Q00000 13038 
PR1 = 000040 13048 
PRe = 0001900 13058 
PR3 = Q00140 13068 
PRY = 000200 13078 
PRS = 000240 13088 
PRE = Q00300 13098 
PR? = 000340 13108 
PS = 177776 12838 1284 3138% 12754" 1304S 
PSEL = 002000 26058 
PSU) = 000001 27708 
PSW = 177776 12848 
PUTREG 041426 131008 
PWRVEC= 000024 1375@ = 3113* 3il4* 1l4241% 14242% i4251# 14257# 14269# 
ROCHR = 104406 13758 142308 
ROLIN = 104407 13808 142318 
RDOCT = 104410 gees 3e4e 3251 13072 13083 13389 13406 l4e3es 
ROY = 000200 2e60e8 3706 3707 3714 3740 4262 4704 S086 
7368 7435 7488 7555 7608 7675 7840 7981 
8530 8757 8824 889e 9126 9389 959e 9825 
10590 10704 10818 10931 11044 11188 11274 11391 
12084 le20e 12321 12440 12558 12679 12935 13155 
READAT 004160 29008 10681 10734 10908 11021 11134 11250 
READIN 904174 29068 
RECALI Q04140 263es 
004162 239018 
REINTO OO4424 29158 
RELEAS OO4144 esse 
RESVEC= 000010 13708 
004170 29048 
REVRED 004200 23088 12061 12180 lee98 12417 12536 12656 13296 
REVWRT O04e04 23108 11368 11461 11694 11706 i182e 11937 
REWIND 004176 29078 13244 
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O33" 4036 4041 39618 4062 


$08 $SO1 $924 6 778 
7483% 7490 7S$7 7603% 7610 
8290 84S7 eSe4 8s3e 87s3 
10129® 10133 10242 i1024%6 10355# 
10820 10929% 10933 110428 11046 
11616® 11620 117308 11734 11643 
12323 =12438* lev4e 1eSS56* 12560 
i2eoi* 13204* 13208 132448 1324S+# 
32e76% 3291 3326 3551% 3553 
3824 3828 387S5* 39018 3954 
4382 4403 4434 4S 4579 

0 S247 S261 S478 640 
§514 6S28 6754 693S* 7011# 
8078 be 8314 es4s 

4S 9618 9778 10039 
10953 11066 11180 112468 11297 
2 12343 levee 1258 126$3# 


9S 
10914 11027 11140 112eS6 = =.11374 
leYee 12541 12661 
7191% 7201 131448 
4e09% 4226 4399" 4416 4S75# 
4977 939 $021 S043 Se4ls# 
5663* #5709 $733 $757 $78 
620 6 6250 6274 6298 
6729 7978 7998 8214* 8234 
13390 
131978 13973 
13131 13183 13232 13241 13248 
3284 3299 3328 1404S 
140e9 
14037 
6919 6941 13949 
13957 
13965 
13301*% 1334S+# 
14013 
14005 


13270 


4471 
8360 
97 


13286 


4743 

Bbbe 

39897 
11364 


Sieg 
83564 
39990* 
114778 


ss44 
90S6* 
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004112 
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OGO004 


006500 
004664 


040000 


001000 


005536 
177774 
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28728 13199 
28708 14053 
28718 3295* 
e8s6ea 3956 
6430 6867 
rita 92390 
1017 10219 
10906 0373 
1166 11706 
12414 12462 
eb34ea 
e83ie 15792 
25398 140 
3141 1343C8 
28308 15792 
26098 3706 
11845 11961 
eb8es 
68Sea 
26838 
e686 
2b84e8 
Sauce 
ry * 
$832 3707 
4023 4038 
15 32598 
2e334ea 4886S 
S376 S402 
6150 6174 
6700 6725 
27768 
293e8 3667 
27478 3300 
e8ils 
3149 3151 
29098 13303 
14148 
14158 
14168 
14178 
3343 3363 
32628 3532 
3534 3544 
3263 35418 
32394 35478 
32778 3557 
32818 3550 
3290 3304 
12748 3105 
S628 6050 
8743 3048 
10890 11003 
12394 12513 
3095 30988 
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13997 

13230* 13298 

3957 3961 

gids. | 9a58 

ae ee 
* 

t193g* 11888. 

12533% 12600 

13400 13407* 

13436 

3714 3740 

3722 3747 

4063 4104 

4907 4929 

S42b* S4S0* 

6198 beee* 

15796 

13230 

31568 

3380 33858 

3543 

3562 

35488 

36939 377 

6471 6908 

9281 951 

11116 11231 

le632 


13299 
3981 
77248 
gacae 

He 

* 

14425 


1e6Se# 
13422 


7739 


9747 
11350 


13338* 13339* 
3982 3986 
783e% 7936 
9531 979 

ti200, 1124? 

* 

11889. t45dé 

12723 12912 

13436* 

7981 8217 

3800 3825 
4144 
4973* 4995 
S729* S753* 
6270* 6294 
3937 4015 
7355 7475 
9976 10089 

11463 11576 
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88e4 


1133. 


13340 
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5169 
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SS86 

90S7*# 
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13398 
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Y) O94s 096* 3207 
RO gS 94 79845 3783 3735s o ee BAS, Ro! a 
+ 3 41 134 ? 7 x) 

388488 AES 

SWREG 000176 1390 3132 

SWO = OO0001 13388 

SWOO = 000001 13288 1338 

SWOl = g0000e i3eve 1337 

= 

ayes = pob0i0 13585 1338 

SwOo4Y = 000020 13248 861334 

SWOS = OO0040 13238 1333 

SWO& = 000100 13228 1332 13898 

ste = Bootes ese 1334 

a 

SWOS = 1000 13198 1329 

SWi_ = C0000e 13378 

SW10 = 002000 13188 

SW1i = 004000 13178 

SWi2 = 010000 13168 

SWi3 = 020000 13158 

suis = Teapee Biss 

sue” = doo004 13368 

SW3 = 000010 13358 

SW4Y = 000020 13348 

SWS = O00040 13338 

SWE = 000100 13328 

SW7 = 000200 13318 

SWB = 000400 13308 

SWS == 001000 13298 

Si = 000001 27278 

Se = 000002 27288 

s4 = 000004 27298 

TBITVE= 000014 13718 

TC = 000032 28138 

T = 000040 27008 

TESTAD 040636 1304 

TESTDV 24 OSOs 3264*% 3266 3271 3330 3337 3357 3375 

TESTVC 005326 30518 3265* 3313 3329 15808 

FO 005322 gouge ois 3309 3323 3331 3527* 3534 

TIEOUT 037574 1S9 7 12843 

TIMCNT QO40442 129688 12984 12989 #13004 

TKVEC = 00006 13788 13667% 13668% 

™T™CS1  o040Se 28328 15792 

TMPSLY 005364 30688 3297 3298 3302 3305* 3310 

TMPO 00525 028 3e27%  3e55* 

TMP 1 005252 30298  3228% 236 3248 3254* 

TMP4Y 005254 30308 

™N = 000067 36998 700 37798 3780 38578 3858 39378 3938 
4182 43708 4371 4S4E8 4547 46148 4815 52088 
64718 472 69088 9093 71808 7181 73558 7356 
7717 78238 7824 79688 7969 8204s 8205 B44 18 
Sebis 282 95148 9515 97478 9748 9976 9977 
10317 104308 1043i 10S48# 10549 106638 10664 # «107768 
11116@ 11117 112318 11232 113508 11351 114638 11464 


3819 
13490 


15808 


40158 


115768 


3873 
13860 


15810 


3899 
13867 


116908 


339S2 
13872 


SEG O 


3977 
13675 


NOS 
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11805 11918@ 11919 120368 12039 121578 12158 

TOTALA pDseNG ‘er, ‘wee 

TRAPVES 900034 13538 3uld® 31128 31398 

= 

TRE = O40000 se088 433064 36S2.—i3708 = 3714 = 3740 

TRK1_ = OO4O00 5e878 

TRK1O = O4O000 

TEKS = SHOBD0 at 

= 

KG? = decco0 Saou 

TRTVEC= 000014 3728 

TSBAE. 005140 30038 

TSBASE 005220 30128 

TSCOMD 05200 30098 

TSCS3.-OOS160 30068 

TSDEVI 005034 39868 

TSINOX 005116 Sqq75 

. 008014 Sqg38 

TSSLAV OOE074 59938 

TSTNM 04656 e9318 3700s 3780 sex 3998s 4O1bs 4097 
6051 64728 63909* 161# 356# 7476% 7596# 
3049s $5158 97488 99775 102048 


NO 
=—* 


92828 
11004%* 111178 112328 113518 11464" 1157 11691 
12514# 12633% 13051 15794 15796 1$798 1$800 
TSTOTL OO0S114 e39368 


TSTUNT S06 30838 3536* 3561 12760 12789 
TSTl 006140 3205S 
TST10) §=60132S4 40958 
TST11 013556 41808 
TSTi@ 014104 43698 
TST13) O144O6 4S4Se@ 
TST14 §=©015076 48138 
TST1S 016000 S2078 
TST16§ §=©01671e 56278 
Tete. Dibe10 Se38. 3575 2788 262 
® le? ie624 
TST2O OeO0S4O 64708 
TSTel 02 14S4 69078 
TSTtee O2e066 71798 
TSTe3 Oe23be 73548 
TSTe4Y O22544 74748 
TSTeS  O22726 75948 
TSTe& 023110 77158 
TSTe? Oe33le 78ee8 
TST3 011406 36988 
TST30 §=©023574 79678 
TST31 24176 82038 
Ss 46 84408 
TST33 025326 87428 
TST34 026054 90478 
TST35 O264S2 92808 
36 027050 95138 
TST37 4 =—6. 07448 97468 


an 


or 


122756 


6980 


1180S* 
1S80e 


le276 


7733 


1 
1S804 


l2334e 


7981 


Sate 

7969% 
10S49# 
12039 
15806 


12395 


125138 


12276 


S629* 
8744s 
10891 
1239S+ 
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TST41 03027 100988 

TST42 030520 102028 

TST43 030746 103158 

TST44 = 931174 194298 

TST4S 031430 105478 

TST46 «©. G 21656 1Cbbe8 

TST47 = 032104 107758 

TSTS 012170 38568 

TST50 032332 108898 

TST51 032560 110028 

ST 033006 111158 

TSTS3 033234 112308 

TSTSY 033470 113498 

TST5S 93371 1i 4628 

ST 0341 115758 

tSTS7 3472 116898 

TST6 489-1 247e 39368 

ST 034620 118038 

TST61  O2504 119178 

TST6e 035302 120378 

TST63 ~«©—-035540 ic046 «121568 

TST6Y 03577 12165 2274s 

TSTES 0362 i2e83 123938 

TST6E §=© 036472 12402 1e5i2e 

TST6? =: 0367 125ei 126318 

TST? Ol e75 40148 

TST79_ 037174 12640 «127528 

TSUNIT 05054 29908 

TS 00512 30608 

TYPDS = TD440S S237" geu9 «3391 «=3409Ss«BS1D.«««3893«3b12Ss«6SD«:12764 «12778 «12813 «1409942278 

TYPE = 104401 31523217, sB2ei «= 3232S 3238 )=— 3244) = 3250 0S 3386 3 3398 «6 «3404 3419 346 
3434 4425S HEESCCH74H—sC4B2=SBH9Dss3498 = 80S) 35110 3517 352i 
3584 3588 3595 3599 3607 3616 3623 3630 637 364 3651 12755 12765 
12771 12777 12781 128ii1 12814 12844 12850 12868 12872 12878 12883 12889 12995 
13047 13053 13059 13060 13064 13068 13075 13079 13379 13385 13396 13402 13403 
13412 13418 «13424 13431 13566 13 13684 13692 13762 13765 13769 13837 13839 
13 13870 13903 13905 13913 13921 13929 13937 13945 13953 13961 13969 13977 
13985 13993 14001 14009 14017 14025 14033 14041 14049 149058 14080 14082 14085 

. 14087 14102 14175 142238 14271 

TYPERR O46006 14 

TYPNT 005330 3 

TYPOC = 104402 

TYPON = 104404 

TYPOS = 104403 


UNIT 00S50i0 


UNLOAD 004136 
0409000 
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USEVEC 005004 
uS1 = 000001 
uSe = 00000e 
US4 = 000004 
UWR = 900010 
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WATO OO4646 
Wi Oe 


* = 0000 
E = O04 

WCEEW = OO4000 
WCEOW = 010000 
WCF = 000040 
WCU = 000001 
WLE = 00400 
WORKBS OO4770 
WORK 004772 


WSU 0 
SAUTOB 001134 
SBDADR OOllee2 


SSDDAT 001126 
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3666+ 


3706 


372S* 
1294S* 
3284 


S 
6154 
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13267% 
9S4e2 


S 
6178 


$i 
13328 
13316* 
9775 


12786+* 


15604 
13006 


13326* 


1278S* 


S 
b20e* 


13012 


S668 
13364 
134S6* 


13016 
030 


6 
142338 


8214 
97SS* 
9994 


6 
b22b* 


1$804 
6513 


84S0* 
9757 
10107 


13153 


8451 
10221 


6 
6250* 


13207 


84S2 
10334 


13247 


SEG 0313 


13256 
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6e98* 6299 632e* 6323 634S* 6346 6367* 6368 6388* 6389 6409s 6410 6430s 


Gebue Gees" Eeeas BERD" EBs Bes" 6938. £940" BFE. © BbEs* B98. © 8594" = EBT 
6 5 


i 
* 7 * 7284 7302* 7303 
rae, fale Tees, aaee Foes, Teas fain, Tater, Fas Fees, at Fae 
goli, 2334" 73958, f3bg* fone, =FGAle Blk, «6 BaO* «Bek, 5BPS* «5883. 78a5" «| F8abs 
901 7916" 791 793% 79 7ag3* 7964 004 +005 Bebe B07 BOSHs BOSS 
Be. Ge Ge. bat Bl bi i Bae Be, Bie Bt, Bet Be 
ado4e 84 gus7s 64 579% * é 
x * 6663 6654s 6685 8706" 970 
en a a nh 
8895 89188 * 07 
* * 922: 9242s 
oR ae ae CoM Ce Te A 
945 3% So 9475s 3 gez2, gud" 205. ace se5K $595 Seige S613 3642s 
ocix apes 9a8ee pe 69887, «3g98" 3693. 3658" 3607. 9898" 6884s ideo, 10019 
10039* 10040 10059" 1 1OLige 10114 101338 34, 10153" 10154 10173» 10174 
10020, iO03a* 19QNo, 19983" 1800, iBaes* 18sec. | 40s 10341 10369* 10360 10379+ 
10399* 10400 104SSe 1 1047S" 10476 1049" 10497 10517" 10518 10SZex 10573 
16289, 19233" 10700, ipses* 16es8, 1853" beats 10688 1070ex 10707 1070 10727 1074bs 
torts. «tpgOOY 10801, §«1Pecde 10sel, §j0eIOe 10Bite 19BG9" {bese ides iioees Lice? iiss 
11141 11160" 11161 111808 11 11200" 11201 11256" 11257 1le76* 11277 11297" 11298 
tide, fteeOe t1tGd 112808 111eh toe tees. 6tigis §6iidaae 11494 1i4e7* 114e8 11506 
11507 11526" 11527 115468 11547 11600" 11601 11620" 11621 11640e 11641 11660" 11661 
11714" 11718 11734% 11738 11754 11755 11774* 411775 11828" 11829 11847" 119848 11867 
11868 11887" lisse 11943" 11944 11963" 11964 11984" 11985 1200S* 12006 12066* 12067 
izoeee idpgs” t3988, is7gs* 12732, 12739" [discs i2ise 12204" 12208 is2e4* isees {5244s 
12245 13303" 12304 12323" 12304 12343" 12344 12363" 12364 lede2" 1le4e3 le44e* 12443 
iSGese Sars" $s303, iszgg* isegt, 15243" {Seeo. i5ee; idee0* Sse] i2e00* iSeoi 1Seci+ 
12662 12681" 12682 12702" 12703. ie723* 12724 12994* 13012* 13016* 13131" 13132 13163 
131849 13232" {3239" 13234 15791 15794 15796 16798 15800 15802 15806 
SBELL 001216 14968 13692 13778 13862 13883 
SCHARC O44024 13611% 13621* 13628 13637" 136428 
SCKSWR= #eeee% U 14230 
SCMTAG O0!100 14508 3100 3101 3109 3115 93116 
SCM1 = 000006 14828 «14838 «614848 «149se 14868 14878 14888 
$cCmMe = 000014 14828 14838 14848 148S8 14668 14878 1488s 
$CM3 = OO00006 14808 1482 
Cm4 = OGOGOGe 14888 14898 14908 14918 14928 14938 1494" 
ct ee, sp, 
8 
SCNTLU 044534 137798 2 ae 
SCRLF~ BOLzz3 14968 13059 13610 13645 13778 13842 13870 13883 14058 14082 14087 
SOBLK 043600 13532 13566 «135748 
SDOAGN 037550 12807 12816 128228 
SDTEL 043670 13535 135708 
037E40 1394 128168 
SENDCT 037506 128098 
SENOMG 037557 12811 128268 
SENULL 037564 12814 2825s 
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$Eoect O3rs00 iSe0ge 12810 
¢ 
SERFLG 001103 14S3@ 13448 13479 = 13481 
SERMAX 001115 14S9@ 31178 13481 13503* 
OR 044730 3109 138568 — 
SERRPC 001116 14608 13864" i3865* 13866 
isso4 15806 15808 15810 
SERRTB OO0l226 1S51S@ 14072 
SERRTY O4SOGE 13869 138968 
SERTTL OOille 14S78 12775 1278S* 13863* 
SESCAP O01e14 149S# 3116* 1350e# 13878 
SFILLC 001156 14788 13614 1364S 
SFILLS 001155 14778 1364S 
$SDADR 001120 14618 
$GDDAT OOlle4 14638 3713% 3714* 3719 
3792ee 837938 3798 3800# 
3879  3880* 3881 3897 
3 3975 3976% 3981 
40S6® 4061  4063* 4064s 
4142 4144e 414S*# 4146 
4265 4280e 4283 4297s 
4417 44318 YWH3e" 4435 
4SSS# 44558 4S90% 44S91# 
4684" 4687 4704% 4707 
4823 44826 486e% 4863% 
497S# 4978 4997% 5000 
$107* $5110 S127% 5130 
Sebe Sees 87 $308* 
S4¥ebe S431 S4¥Se# S4SS 
SS63% 5566 sss4v* 5587 
$734 S755# 5758 S779 
ssss* 5899 5902 S92e* 
60S9* 6060% 6063 610e# 
6203 6224 6227 6248* 
6346 6365* 6368 6386* 
6526 6529 65S5ex 6555 
80 67028 6705 6727 
6824 6843# 6846 686S* 
7016* #7019 7041# 704e# 
7199# 7202 72e20% 7223 
7319% 73 7368* 7371 
7511 75328 7535 7555 
7739% 7742 7756% 7759% 
7883 7898" 7901 7916% 
8027 80S2e# 98055 8075* 
8169 8217* 8220 8238*% 
8336*% 8339 6358* 8361 
8499* 8502 8See* 8525 
8617 8638* 8641 8660# 
6800* s8801* 98804 88e4* 
8916* 891 B8940# 8943 
39099* 9102 9126* 9129 
9e40# 9243 9309  9310* 
9410 9429% 9432 SYHS1* 
3595 9615* 9616* 9619 
9776# 977 $798* 9680] 


13487* 
13508 


13883 


9640* 
982S* 
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13508 


14064 


13857+* 


15791 


9 
366e* 
9848+ 


13883 


1$79e 


15794 


1$796 


15798 


3747+ 
3871+# 


1s80c 


9895+ 


1S80e 
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~ . 41 6&i™ ec-"" 
9917% 9920 9939*# 9942 9998* 10001 10017* 100e0 10036* 10037# 10040 100S7#* 10060 
10il1l#® 10114 10131# 10134 10150# 1i10151# 10154 10171* 10174 10e2eS* 10228 10244" 10247 
10263% 10264* 10267 10284 10287 10338* 10341 103578 10360 10376# 103778 10380 10397+% 
10400 104S3% 104S6 te 1047 ipa" 10494 10497 193455 10518 103.205 10S$73 10590* 
10593 10609* 10610% 10613 10630# 10633 1068S* 10688 10704%* 10707 107238 10724* 10727 
10744" 10747 10798* 10801 10818# 10821 108378 10838* 10841 108S8* 10861 10912e* 10915 
10931# 10934 109S0# 10951* 10954 10971# 10974 1102eS* 11028 11044# 11047 11063# 11064 
11067 11084 11087 1113688 11141 11158# 11161 111778 111788 111681 11198# 11201 lles4s 
11257 11274" 11277 112e94* 11295* 11298 11316# 11319 11372* 11375 11391# 11394 11410 
1141.8 11414 11431% 11434 1146S* 11488 11S04%* 11507 11S23* 11524*# 11527 11S44# 11547 
11898* 11601 11618% 11621 11637% 116388 11641 11658* 11661 117128 11715 117328 11735 
117S1# 117528 11755 117728 11775 1182e6% 11829 1184S# 11848 11864* 11865* 11868 1188S+ 
11888 11941% 11944 11961# 11964 11981 119828 11985 12003# 12006 12064" 12067 12084 
12087 12103% 12104* 12107 lele4* 12127 12183* 12186 le2e0e* te20S le22l* ieee2t ieees 
lee4ee 1224S 12301# 12304 le3el* 12324 12340#% 12341* 12344 12361* 12364 le4e0* iek23 
i2e44O02 12443 12e4SS9# 12460" 12463 12e480# 12483 12539* 1254e .5568* 12561 12S77%* i1e578# 
12581 1e598* 12601 12659% 12662 12679* 12682 12e699* 127008 12703 le7e2l# 12724 13129+ 

- 13132 13181# 13184 13231# 13234 15794 1S796 1$798 15800 1S$80e 1S806 

$GETY2 037530 128158 

SGTSWR= #28882 U 14229 

$SHD = 000000 1257 

SHIOCT O44726 13830% 138418 

SICNT 001104 14S4e 13494" 13495 13497 13507 

SILLUP 946660 14241 14257 142768 

SINTAG 001135 14688 

SITE 001114 14S8s8 13866% 13883 14061 

SLF O0ie24 14998 1364S 13769 13778 13842 13883 

$LPADR OO1106 14SS8 3118% i3074%* 13085 1348S* 135008 1.13505 13507 

SLPERR 001110 14S68 3119% 3711% 37378 3790 3815 3869 3895* 3948+ 3973 40275 4053 41064 
4134 13057 13084 13485 13S01# 13507 13877 

EMAIL = eeeEES LU 3136 13500 13598 13872 

SMNEW O44SS7 137838 

SMSWR O44S46 137818 

SMXCNT 043362 13498 135078 

SNULL 001154 14768 13616 1364S 

$NWTST= O0000: 31808 3182 35708 3572 36828 3684 37638 3765 38408 3842 392.8 3923 39938 
4000 40798 4081 41648 4166 43538 4355 4So4e8 4S26 47968 4798 5188s $190 
56078 5609 60298 6031 64508 6452 6888s 6890 716S8 7167 73398 7341 74S98 

461 75798 7581 76998 77988 7800 79S48 7956 81908 8192 84268 8428 
8728s 8730 90318 9033 92648 9266 94978 9499 97308 9732 99648 9966 100778 
10079 101918 10153 103048 10306 104178 10419 105368 10538 106Sis# 10653 107648 10766 
108788 10880 109918 10993 11104*@ 11106 112188 11220 113388 11340 114Sle® 11453 115648 
11566 116788 11680 117928 11794 1190S# 11907 l1e0eS* 12027 121448 Llei4ée le2bee 12264 
ag 123818 12383 1eS008 12502 126188 12620 12e74S# 12747 

SOCNT 046430 14147# 141768 141898 

SOMODE 046432 141l4ee 14146# 14151 141S4* 14165* 141918 

Sexee aalies Tile 12808. 128Gts 12878 1382" ove 1200 

+ 4 
SPOWER O46666 14272 142798 . 
sPiron aces pith 
il 142418 14269 
SPWRMG O466S0 142728 
sours’ Bares Migs T3252" sree 
c 5 4 1376 13778 2839 4 
SROCHR 044320 137318 14230 mee susie enti 
SRODEC= #4ae84 LU 14233 


GO9 


CERHADO MACY11 30.1046) 2i-DEC-77 13:06 PAGE 319 = : 
CERHAD.Pil 2i-DEC-77 12:48 CROSS REFERENCE TABLE -- USER SYMBOLS 
SROLIN O44410 137S4e 14231 
SRDOCT O44S70 138038 14232 
$RDSZ = 000011 137478 
REGAD 001160 14808 
SREGO 001162 14828 
SREG1 001164 14838 
REGe 001166 14848 
$REG3 001170 148S8 
SREGY 001172 14868 
SREGS 001174 14878 
$RTNAD 037552 128248 
GREQ = REHHEE LU 14233 
SeAVRE o4ee64 7 tyse0 14258 14259 1426 14278 
~ ed + 4 * = 78a 
$SCOP 043104 3989 13628 13587 135895 
SSETUP= 000017 30998 3106 3107 3109 3111 3113 3115 3116 3118 .-80i 13456 13688 
13720 13785 13857 13875 1388e 
$SS1_ = 000090 31368 
SSTUP = 177777 30998 
seun ects 1348 19307" 262 263 le 1265 1266 1267 1 1494 1495 1496 
= 7700 a 1 1 4 7 
116 3118 3119 3206 3576 3699 Asse 3857 iss 401iS 4096 4181 
4S46 4814 S208 S628 6050 6471 6908 7180 7355 7475 7595 7716 
7368 8204 8441 8743 3048 9281 9514 9747 9976 10089 1020: 10316 
10548 10663 10776 10890 11003 11116 11231 11350 11463 11576 11690 11804 
12038 12157 le275 12394 12513 12632 12753 12736 12802 12817 12823 12825 
134S0 13451 134S2 134S3 13461 13473 13475 13476 13479 13480 13481 13488 
iss ets] 13504 13507 13848 13849 13850 13851 13852 13860 13867 13872 
SSWRMK= OCOO00 126 1269 134S3 134S4 13477 
STIMES OOlele 14948 3115 3206* 3576# 12753* 1e80e* 13488* 13495 13498* 13507 
001146 14738 13648 13669 13680 13701 
STKCNT O44030 136498 13664* 13690 13707* 13738 13740 
STKINT O440S50 136648 13685 
STK EN= 044047 136538 13715 13743 
STKQIN O44O32 136508 13665* 13666 137138 13714 13715 13717+% 
$TKGCU 044034 136518 136668 13741 137428 13743 1374S# 
$TKQSR O44036 136Se8 13665 13717 1374S 
O1144 14728 13648 13670% 13697* 13699 1370S+* 
STKSRVY 044120 13667 136808 
MPO 001176 14868 
STMP1 001200 14898 7998+ 8234" 8473 877S* 
STMPe 001202 14908 8520 6822 
STMP2 001204 14918 
STMPY 00i20tb 14928 
$TMPS 0012i0 14938 
STN = 900071 12468 1257 3180 32068 3538 3570 35768 3682 36998 3763 7798 3840 
3921 39378 39938 40158 4079 40968 416 41818 43708 4524 4S46e8 
46148 5208s 607 S628 60508 64S0 64718 8 69088 7165 
339 73558 S93 74758 $79 75958 7 77168 7738 78238 7354 739688 
Seer" Faree iGuvt* oes iBigi” deahe sees" sGiiee eure" sorage Ogee" 065g 
# a it . r 8 
106 1076 107768 18883 1Bbabe {859i 10383. {P7468 111168 1ilél 19337. 19338 
114S1 114638 11564 115768 11678 116908 11792 11804*® 11905 113488 12025 120388 
12144 121578 12164 l2ebe 1227S i228 12381 123948 e401 12500 125138 i2520 
leb328 12639 1274S 127538 





CERHADO MACYI1 3011046) 21-DEC-77 13:06 PAGE 320 
CERHAD.P1li 2i-DEC-77 12:48 CROSS REFERENCE TASLE -- USER SYMBOLS 


TP ll i47Se 61 we 17964 
31 LG pet ies 14798 138 e 1364 
TPS 00116 1474@ 13632 13645 
STRAP O46434 3i11 142008 
STRAP2 O464SE 142ll@ 1422e * pe 
Pp = goo0le 1isie® 142ee4s 142258 142268 142278 142288 14230 W4e3ie ise32e8 142338 l4es4s 
STRPAD O46470 1420 lYeees “a 
STSTNM 001102 14S2@e 12801* i3448 13477 13499 13504 135028 13859 13883 
STTYIN O4Y4S16 1az32 13756 13773 137778 
PBN= #eeeEH U 1422 
$TYPOS 043364 13S2e08 14227 
043610 13539e8 1421S 14223 
STYPEC 043760 13613. 13620 13627 136328 13633 
TYPEX O44 13638 13640 = 136438 
$TYPOC O462e3e 1414S@ 14224 
STYPON O4624%6 14144 141478 14226 
STYPOS O46e06 141408 14225 
SXTSTR O43124 134648 
$SGET4= 000000 128178 
SOFILL O46431 14141# 1414S# 14155 141908 
SYHOCAT= #eeeee LU 13461 13869 ‘ 
: = 067012 13848 13888 13938 13958 13978 14428 14498 1500 e8e3e 28278 e29it4e 
29648 29838 29858 29908 29938 30008 30038 30068 30098 30lce8 3046s 
3073e 30748 30758 30768 #30778 30788 #30798 080s 30818 3104 3118 
3e478 33898 33958 34018 3407 S4eee 34698 35088 35988 36028 36108 
1e82S) = 1e8B29)—Sss«12847# «128538 128758 128618 ie8Ses 12898" 130638 130788 133888 
134158 13507 13508 135748 13645 13648 136528 13653 136548 137778 13776 
isos fh 139328 139408 139488 139568 139648 139728 140e8s 140368 14108 
- e¢ 7 h 


MMODONU 
seas ss 










Ec-77 13:06 PAGE 3ee 
CROSS REFERENCE TABLE -- MACRO NAMES SES 0319 


ioe ie 13936 13944 13952 13960 13968 13976 13984 13992 14000 §=614C0Gé 
10183 10302 10415 10534 10649 As 10876 10989 11102 ii2le Li33& 11449 
3839 


12023 lelY¥e tleebO 12379 98 12616 
3920 3997 4078 


CERHADO MACY11 30/1046) 
CERHAD.P1i 21-DEC-77 le: 


ALLREG 12588 13904 
BITOBL 1eS8s 






ENDCOM 
ERROR 






1 3 
S 21 l 

869 8923 8947 8969 8991 9013 9084 9106 9133 91S 9181 9203 92e5 9247 9317 

933 9366 3390 9414 9436 9458 9480 9550 9$72 9599 9623 9647 9669 9691 9713 
9783 980S 9832 9856 9880 9902 9924 9946 1000S 10024 10044 10064 10118 10138 10158 
10178 10232 10eS1 10271 10291 16345 10364 10384 10404 10460 10480 10501 10Se2 10577 10$97 
10617 10637 10692 10711 10731 10751 1080S 1082S 1084S 1086S 10919 10938 10958 19978 11032 
1105] 11071 11091 11145 11165 11185 11205 liebl 11281 11302 11323 11379 11398 11418 11438 
11492 11511 11531 )1551 1160S 11625 1164S 11665 117193 11739 11759 11779 11833 118Se2 11872 
iesus ese «lous? aun? [Sue [Suge = [ede © teed «15886 «Secs | iSece «= iSce0 «1270? | 18P2e © 13888 

r é 72 
aie waar 13013 i3136 13188 13237 
1 1381 


JOS 


CERHADO MACYL1 30‘ 10% 2i-DEC-77 13:06 PAGE 323 “ z 
CERHAD. P11 21-DEC-77 12:48 CROSS REFERENCE TABLE -- MACRO NAMES sEG 0320 
GETSWR is 13818 
MSG 31798 3182 35708 3572 36828 3684 37638 3765 38408 3842 39218 3923 39988 49000 40798 
4061 41638 4166 41888 4198 42228 423e 4251 4270 4288 4305 4323 4341 435es 4355 
43788 4388 441e8 442e 4440 44S9 4477 4495 4513 4S238 4S26 4SS38 4563 45898 4599 
46248 4633 4651 466c8 4673 4692 4712 4731 4749 4767 785 47958 4798 48216 4831 
48618 4871 4e84ea 89s 4917 4939 961 4983 s00s S027 5049 5072 5094 5115 $135 
siss $175 51878 5190 S21Se S226 Sesbe 267 Sesis S29e S316 340 5364 388 S4ie 
S436 5460 S484 SS07 50 5$71 55392 S6068 S609 56358 S646 S678a 5689 5704s 
s71S $739 S763 S787 S811 35 58s9 $883 5$07 5930 $973 $934 6015 6028s 
6031 60578 68 61008 6111 61258 136 6160 6184 620 6232 6256 6280 6304 6328 
6351 394 6415 6436 64498 452 64788 6489 65238 6534 65498 6560 6585 6610 
6660 6685 6710 6735 6760 6784 6807 6829 6851 6873 68878 6890 6915s 6392S 
69378 6947 6968 69828 69933 7024 oso 7076 710 7124 7148 71648 7167 71978 7207 
7228 7249 7270 7308 27 73388 7341 73658 7376 7336 4 7443 74S8e8 7461 
74856 7496 7516 7540 7563 75788 7581 76058 7616 7636 7660 7683 76988 7701 77378 
7747 7767 7787 77978 7800 78388 7848 7868 7888 906 7924 S4e 79538 7956 79798 
739893 80008 8010 8032 8060 8108 8130 81S 8174 81898 8192 82158 8225 823ce8 
8246 82 8320 8344 366 388 8410 84258 42 64S38 8463 847Sa eyes $07 
8S30 Bssi 8S72 398 8622 8546 68 8630 8712 87278 8 875Se8 8765 87778 8787 
8093 8832 88s3 8874 8900 8924 948 8970 8392 9014 90308 33 90728 goss 9107 
3134 9158 9182 204 oes 9248 32638 3 $3058 9318 9340 9367 9391 9415 9437 
34s9 9481 94968 ggg 388 9551 73 9600 9624 964 967 32 9714 97298 9732 
97718 9784 9806 9833 9857 9681 9903 99e5 9947 99638 9966 9996 10006 100eS 1004S 
1006S 100768 10079 101098 10119 10139 10189 10179 101908 10193 102238 10233 10eS2 10272 10292 
103038 10306 103368 10346 10365 10385 10405 104168 10419 104Sl# 10461 10481 10502 10523 10S35s8 
10538 105688 10578 10598 10618 10638 106508 10653 106838 10693 10712 10732 10752 107638 10766 
107968 10806 10826 10846 10866 108778 10880 109108 10920 10939 10989 10979 109908 10993 110238 
11033 110Se 11072 11092 11103@ 11106 111368 11146 11166 11186 11206 112178 11220 liesSes 11262 
11282 11303 11324 113378 11340 113708 11380 11399 11419 11439 114508 11453 114838 11493 115!e2 
11532 115Se 115638 11566 115968 11606 11626 11646 11666 116778 11680 117108 11720 11740 11760 
11780 117918 11794 118248 11834 11853 11873 11893 11904%8 11907 119398 11949 11969 11990 12011 
le0e4s 12027 l2e06e8 12072 12092 lelle lel3e lel43e 12146 121818 12191 12210 12230 12250 lecbis 
12264 122998 12309 12329 12349 12369 123808 12383 124188 le42e8 12448 12468 12488 124998 12502 
iseaze Sree isves 12586 12606 126178 12620 126578 12667 12687 12708 12729 127448 12747 131278 
MSGi 48838 4901 49078 4923 49298 4994S 49518 4967 49738 4989 49958 Soll 50178 50398 
£055 50618 5078 5100 Slel S141 S161 5181 52808 5299 53058 $323 $3298 S3S28 
$371 $3778 $395 S401le8 S419 S42eSe S443 S449e8 S467 S4738 S491 SS14 5536 $s7 
5s33 7038 $722 $7288 S746 S7Ses 70 $7768 5734 Sso0e 5818 S8e4ea S842 S58 
S87es8 8390 Ses6s8 S914 5937 s9s9 5980 6001 602 61248 6143 61498 6167 61 
61978 6e15 22ls 6239 624Se8 6263 o2cb9s8 6287 62938 6311 63178 6335 6358 64 
6422 6443 6548s 6568 65748 S33 S998 6618 66248 6643 66498 666E 66748 
6718 67248 6743 67498 6768 32 1S 6837 6881 69838 003 70148 0 
7086 ll 7134 7158 73668 0 73868 7400 74108 7424 74338 7447 74868 
5 7520 75308 7544 7SS38 7 76068 620 76e68 7640 76508 7664 76738 
mMSG2 79808 3 80018 1 8038 e0s0s8 8066 8030 8114 136 8158 8180 82168 
B2Se2 82; 82868 8302 8326 8350 8372 8394 6416 84S4e8 467 84768 
5S7 6578 esese 6604 8628 86S 8674 696 718 87568 8769 87788 93 
eess 8880 88908 8906 930 69s4 8976 9020 90738 9031 911 Sle4s 
3188 $210 9254 93068 9324 9346 93578 9373 9397 9421 9443 9465 
9S$57 9S$79 $5908 9656 9630 9654 9676 9698 9720 97728 9730 98i2 98238 
3887 99093 9953 99968 10011 10030 10050 10070 101098 i0124 10144 10164 
10238 10257 10277 10297 103368 10351 10370 10390 10410 104Sis8 10467 10487 10508 
10583 10603 10623 10643 106838 10698 10717 10737 10757 107968 10811 10831 10851 
109e5 10944 10964 10984 110e38 11038 11057 116077 11097 11136@ 11151 11171 11191 
lle 11288 11309 11330 113708 11385 11404 11424 LL444 114838 11498 11517 11537 





KO9 


CERHADD MACYii 30:10%6) 2i-DEC-77 13:06 PAGE 324 ~ 
<ERHAB OPTI zicpee-s> 12:48 CROSS SePEReNce TABLE -- MACRO NAMES 
11611 11631 11651 1167 117108 11725 1174S 11765 11785 
11955 11975 11996 13854 120628 i2077 12097 lell? 1lei3 
12314 12334 12354 12374 124188 12433 1e4S3 1247 12493 
12673 12693 12714 12735 
MUL T ls 13818 
NEWTST ls 13818 3180 3570 3682 3763 3840 3921 3998 
S607 6023 6450 68Ss8 7165 7339 7489 7579 7699 
3264 9497 9730 9964 10077 10191 10304 10417 10536 
11338 114S1 11564 11678 11792 11905 120eS 12144 l22be 
PEDPE l2s8s8 7952 6188 8424 8726 
POP 13818 13017 13110 13561 13831 14262 14263 
PUSH ls 138ie8 12970 13100 13520 13805 14243 14249 
REPORT ls 13818 
RHCLEA 1258e 3701 3781 38s93 39393 4017 4098 4183 4372 
6310 7182 7357 7477 7397 7718 7825 7970 g04s 
3050 $119 3283 9352 9516 gses 9749 9618 9978 
10778 10892 1100S 11116 11233 11352 1146S 11$78 11692 
ieSis 12634 
SAVTST 12588 
SCOPE le7be 3205 3575 3698 377 3856 3936 4014 4095 
6049 470 6307 7179 7354 7474 7594 7715 7822 
9513 3746 997" 008s 10202 10315 104e9 10547 10662 
11462 i1$75 11689 11803 11917 12037 12156 12274 12393 
SETPRI ls 13818 13734 
SETTRA 1421Se 14224 14225 14226 14227 14230 14231 14232 14233 
SETUP 1 13818 30939 
SIZDEV l2S8s 
= ls 12588 13818 1204S 12164 12282 12401 i2Se0 12639 
SLASH ls 13818 
MORE lessea 
eT ARE ie 138 1 Ss 00 253 2540 es3e es9 
a ls 441 144 15 4 4 4 
3697 3763 3777 40 3855S 3921 3935 3998 4013 
4524 4S44 4796 Ble 5188 S20 5607 626 6029 
7178 7339 7353 7459 7473 7579 7593 7639 7714 
8426 8439 8728 8741 9031 9046 3264 9279 9497 
10087 10191 10201 10304 10314 10417 10428 10536 10S46 
2 10991 11001 11104 11114 11218 112e9 11338 11348 1148] 
1160e 11905 11916 120e5 12036 12144 12155 le2be 12273 
12745 12751 12793 12839 12841 12864 12866 1344S 13510 
14117 14194 14239 142S5 
STARTT lessee 36939 3779 3857 3937 4015 4096 4181 4370 
69308 7180 7355 747 7595 7716 7823 73968 8204 
9976 10089 10203 10316 10430 10548 10663 10776 10890 
11690 11804 11918 12038 12157 l2ee75S 12394 12513 12632 
SWRSU is 13818 31208 
TJUMP 1258 3538 
TRMTRP i421S8 
TTSTNO 1eSés 3700 3780 3858 3338 4016 4097 4182 4371 
6303 7181 7356 7476 7536 71 7824 7369 8205 
3977 10090 10204 10317 10431 10S493 10664 10777 10891 
11691 1160S 11919 12039 12158 12276 12395 12514 12633 
TYPBIN is 13818 
TYPDEC les 13818 12612 
TYPNAM is 136.8 
TYPNUM ls 1381s 


CERMADO MACYi1 30:10%6) 2i-DEC-77 13:06 PAGE 325 . 
CERHAD.Fii 21-DEC-"7 12:48 CROSS REFERENCE TABLE -- MACRO NAMES 


Typoct is 13 is 
TYPTXKT le 13618 3152 3216 3221 3231 3238 3244 33865 33932 3398 3404 3419 3426 
paps 345 3458 3466 3474 3482 34930 3496 3504 3511 3517 i 3384 3588 
i3ec? 13892 «3838 1385313889 «13886384? «382s «S008 «= tSoes «15068 §« S055 «15094 = 1887 
13396 1340e 13408 1341e 13418 13424 13450 13905 13913 13321 13329 13937 13945 13953 
woeou 19783. > Lh 13383 13332 1300) 14009 14017 14025 14033 14041 14049 
WT 1eS8e 4ell 4401 4S77 4613 So S2e4s S667 6089 6Sle 13152 13206 13246 43256 
13284 13305 13315 133e7 13352 13363 
SSCMRE 14438 4 1483 1484 14865 1486 1487 
SSCMITM 14438 1488 1489 1490 1491 1492 1493 
Sheu? is i3eie 3180 3570 3682 3763 3840 3921 3998 40793 4164 4353 4Se4 4736 
T a 1 7 
S607 23 6450 6686 7165 7339 74S9 7S79 7699 7798 7954 3190 8426 8726 
9264 9497 9730 39t4 10077 10191 10304 10417 10536 10651 10764 10878 109951 11104 
ise 11451 11564 11678 11792 11398 iss? 12144 1esse 12381 12500 12618 12745 
$SSET 142e1Se 14224 14225 14226 14227 14230 14231 14232 14233 
SSSKIP is 13818 
. EGUAT ls i2e4es 1271 
. HEADE le 12488 
KT1l ls 12488 1406 
SETUP ls 12488 30938 
. SWRHI ls 12488 1258 
. SWRLO 12488 lebSe 
SACTI ls 
. SAPTB ls 
SAPTH 1s 
SAPTY le 
SASTA ls 
SCATC ls 1248s 1382 
SCMTA le 12488 1443 
$0B20 is 
$0820 le 
$DIV is 
. SEOP ls le48e 12791 
SERRO le 1e48a | 2 
SERRT le 12488 
SMULT ls 
$PO le 12488 14237 
. SRAND ls 
* SRD DE is 248 378 
.  ] 12e48ea 1 3 
. SREAD rf 12488 13645 
- SR2AZ ls 
. SSAVE is 
.-$SBeD ls 
Hate r 248 2 
6 12468 13442 
SSIZE ls 
Sthap is 1248 32 
8 # 141 
ree it ave 
° 488 13508 
STYPE ls 1c48s8 13575 


CERHADO MACYi1 30(1046) 2i-DEC-77 13:06 PAGE 326 
CERHAD.Fil 21-DEC-77 12:48 CROSS REFERENCE TABLE -- MACRO NAMES 


1248e 14115 


. ABS. ooo 


ERRORS DETECTED: O 


CERHAD. BIN, CERHAD.LST/CRF “SOL “NL: TOC=CERHAD. SML,CERHAD.P11 
RUN-TIME: 34 SO 3 SECONDS 


RUN-TIME RATIO: 343/87=3.9 
CORE USED: 37K (73 PAGES) 





NOS 


EOF LCERMADSES 300 19000 780330 POPiO 411 


